F1 Licenseware

home *** CD-ROM | disk | FTP | other *** search

/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 090.dms / 090.adf / SOURCE / punterV3.AMOS / punterV3.amosSourceCode < prev next >

Wrap

AMOS Source Code | 1992-03-06 | 95KB | 3,068 lines

'PUNTER version 3.0 Design + coding Steve Bye (c)1994/95 'Graphics Belinda Bye 'extra help Lee Bamber 'started 29/11/94 'finished 18th may 1995 Set Buffer 60 Screen Open 0,320,256,16,Lowres Flash Off : Curs Off : Cls 0 Unpack 7 To 0 While Mouse Key=0 : Wend Fade 3 Wait 30 Erase 7 ' ' 'Enhancements to v2 4/12/94 '-------------------------- 'Load and save options ' 'gallop sample in race ' 'new menu system on race card ' 'new title screen ' 'improved race graphics, slightly! ' 'Freeze race option ' 'Quick race option ' 'See horses backed during race (I keep forgetting!) ' 'Stamper thud sample on betting slip ' 'Touched up the grey horse bob's colours ' 'Amigaguide documentation also included as well as ASCII doc 'file check on loading 'jockey screen text alignment bugs done and few colour changes ' 'start a new game bug done 'form book text aligment done ' ' '----------v3 enhancements-----started 10th Dec 94 ' 'now HD installable. Will run from anywhere ' 'Animated title screen 'cut out difficulty levels 'improved presentation on racecard 'bets are now in ï¿½10 and ï¿½100 stakes only for faster bets. 'added game over screens 'tidied up lots of text mis-alignments again 'redone tipster and added two more tipsters, dead cert and TVman 'prev players turn as well as next plyr on racecard menu, use left/right mouse buttons ' '18/5/95 'CAN NOW PAY OFFExistING LOAN, PRESS R 'better save/load can now save as many games as want on a disk 'redone horrid green to a horrid light blue ' '------------------------------------------------------------------------- 'Break Off Global _DIR$ _DIR$=Dir$ '=========================================================================== Screen Open 0,320,200,16,Lowres Flash Off : Curs Off : Hide : Paper 0 : Cls 0 Screen Hide 0 _CHECKFILES '=============================== '= Dimension arrays = '=============================== Dim ODD(8),BTYPE(4),SF1(4),SF2(4),RF1(4),RF2(4),HB(4),BUP(4),PM(100),HLIST(25) Dim VU(25),PCASH(4),PBET(4),HCHAR$(100),FFIG$(100),TRAINER$(25),WEIGHT$(100) Dim DRW$(15),GOING$(5),HORSE$(100),H$(100),TEMP(25),HOR$(8),DIST(8),AGE(100) Dim RNNING(8),P(8),Z$(6),PTS(8),IRO(8),XB(8),LTHS(8),WINS(100),RATMET(100) Dim PSTAKE(4),FOM$(100,25),MM(100),BESTCOURSE(8),BESTDIST(8),BESTGOING(8) Dim RATING(8),RNS(100),OWN1(100),OWN2(100),OWN3(100),OWN4(100),SLIST(27) Dim JOCK$(25),J$(8),MEETING$(15),POS$(8),JR(25),JRIDE(25),JWINS(25),JJJ(25) Dim JTEMP(25),RETAINER(4),HADLOAN(4),LR(4) '============================== ' Make variables global = '============================== Global ODD(),BTYPE(),SF1(),SF2(),RF1(),RF2(),HB(),BUP(),PM(),HLIST() Global VU(),PCASH(),PBET(),HCHAR$(),FFIG$(),TRAINER$(),WEIGHT$() Global DRW$(),GOING$(),HORSE$(),H$(),TEMP(),HOR$(),DIST(),AGE() Global RNNING(),P(),Z$(),PTS(),IRO(),XB(),LTHS(),WINS(),RATMET() Global PSTAKE(),FOM$(),MM(),BESTCOURSE(),BESTDIST(),BESTGOING() Global RATING(),RNS(),OWN1(),OWN2(),OWN3(),OWN4(),SLIST() Global JOCK$(),J$(),MEETING$(),POS$(),JR(),JRIDE(),JWINS(),JJJ(),JTEMP() Global HADLOAN(),LR() Global M$,GG$,RACENUMBER,DIFF,RNNERS,DAW$,WINPART,PLPART,RACE Global D$,GO,MEET,GOIN,PRIZEMONEY,PTURN,PLYRS,PB$,PB2$,PB3$ Global HCOUNT,FIRSTLOOK,HORSESFORSALE,MEN,QUIT,HFS,P1OWNS,P2OWNS,P3OWNS Global P4OWNS,P1HR,P2HR,P3HR,P4HR,FCOUNT,SEASON,DI,P1RP,P2RP,P3RP,P4RP Global RETAINER(),P1GJ,P2GJ,P3GJ,P4GJ,GAMETYPE,WINNER,P1STOCK,P2STOCK,P3STOCK,P4STOCK Global JUSTCHECKING,P1DEAD,P2DEAD,P3DEAD,P4DEAD,M1,M2,M3,M4,REALPLAYERS ' Global PB2$,BHO,VV1$,VV2$,VV3$,DC,DEADCERT,BHBDC,GIVEN '============================= '= Set up start vars = '= and call init routines = '============================= BEGIN: 'need to zero all these for when start a new game is used. ' GIVEN=0 : BHBDC=0 : BHO=0 : SEASON=0 : JUSTCHECKING=0 : QUIT=0 : FCOUNT=0 : MEN=1 : HORSESFORSALE=100 : MEET=1 RACE=1 : RACENUMBER=0 : PTURN=1 : P1DEAD=0 : P2DEAD=0 : P3DEAD=0 : P4DEAD=0 M1=0 : M2=0 : M3=0 : M4=0 : PB$="" : PB2$="" : PB3$="" For A=1 To 4 : HB(A)=0 : BTYPE(A)=0 : PSTAKE(A)=0 : RETAINER(A)=0 HADLOAN(A)=0 : PBET(A)=0 : RF1(A)=0 : RF2(A)=0 : SF1(A)=0 : SF2(A)=0 Next A For A=1 To 100 OWN1(A)=0 : OWN2(A)=0 : OWN3(A)=0 : OWN4(A)=0 PM(A)=0 : MM(A)=0 : WINS(A)=0 : RATMET(A)=0 Next A For B=1 To 25 For A=1 To 100 FOM$(A,B)="" Next A Next B For A=1 To 25 JR(A)=0 JRIDE(A)=0 JWINS(A)=0 Next A _LEVEL REALPLAYERS=PLYRS If PLYRS=3 Then P4DEAD=2 If PLYRS=2 Then P3DEAD=2 For A=1 To PLYRS : Rem set cash for each player If DIFF=1 Then PCASH(A)=10000 If DIFF=2 Then PCASH(A)=5000 If DIFF=3 Then PCASH(A)=1000 Next A Limit Mouse : Show On : Inc SEASON _HORSES '-------------------------------------------------------------------------- ' ------------------------- ' = The main control loop = ' ------------------------- Do _SETRACE If QUIT=1 Then Goto BEGIN _RACECARD If QUIT=1 Then Goto BEGIN Inc RACE For A=1 To 4 : PBET(A)=0 : Next A : Rem zero bets Loop ' ------------------------------------------ ' = The procedures = ' ------------------------------------------ Procedure _ADVERT Hide Load Iff "punter_files/ltitle.iff",0 Track Play 5 Screen Hide 0 Wait Vbl Screen Open 1,320,88,32,Lowres Double Buffer Get Sprite Palette Colour 0,$3 Flash Off : Curs Off : Hide : Cls 0 Channel 1 To Bob 1 AA$="Anim 0,(5,6)(6,6)(7,6)(8,6);" Bob 1,104,50,5 Amal 1,AA$ Wait Vbl Amal On Screen Show 0 While Mouse Key=0 Wend For A=1 To 120 Move X 1,"(1,2,2)" : Move On(1) Wait Vbl Next A Screen Close 1 Screen 0 : Fade 2 Wait 28 Show Track Stop Amal Off Anim Off Move Off End Proc '========================================== 'select players/level Procedure _LEVEL _ADVERT Dim A$(4) Unpack 13 To 0 _MOUSE Limit Mouse 163,84 To 400,286 Ink 7,0 Reserve Zone Reserve Zone 5 Set Zone 1,97,113 To 115,130 : Rem 1 Set Zone 2,134,113 To 151,130 : Rem 2 Set Zone 3,171,113 To 189,130 : Rem 3 Set Zone 4,209,113 To 226,130 : Rem 4 Set Zone 5,155,162 To 172,179 Colour 7,$F Colour 8,$FFF Shift Up 10,7,8,1 Show On PLYRS=0 : DIFF=1 Do REG: K=Mouse Zone While Mouse Key=0 Wend If K<=0 or K>5 Then Goto REG Ink 7,6 If K=1 Then Text 98,119,"1" : PLYRS=1 : Ink 0,6 : Text 135,119,"2" : Text 172,119,"3" : Text 209,119,"4" : Ink 7,6 If K=2 Then Text 135,119,"2" : PLYRS=2 : Ink 0,6 : Text 98,119,"1" : Text 172,119,"3" : Text 209,119,"4" : Ink 7,6 If K=3 Then Text 172,119,"3" : PLYRS=3 : Ink 0,6 : Text 98,119,"1" : Text 135,119,"2" : Text 209,119,"4" : Ink 7,6 If K=4 Then Text 209,119,"4" : PLYRS=4 : Ink 0,6 : Text 98,119,"1" : Text 135,119,"2" : Text 172,119,"3" : Ink 7,6 If K=5 Then Text 156,172,"OK" : Wait 15 : If PLYRS>0 Then Goto WIPE If K=5 and PLYRS<=0 Then Ink 0,6 : Text 156,172,"OK" ' Loop WIPE: Hide Fade 2 : Wait 14 : Cls 0 If PLYRS=1 Then Pop Proc Load "punter_files/select.abk",3 Unpack 3 To 0 _MOUSE Reserve Zone Reserve Zone 5 Set Zone 1,57,80 To 255,93 Set Zone 2,66,102 To 246,114 Set Zone 3,43,120 To 268,134 Set Zone 4,35,140 To 273,154 Set Zone 5,132,181 To 178,207 Show On GAMETYPE=1 Ink 10,0 Shift Up 10,9,10,1 Box 57,80 To 255,93 Ink 10,0 : Box 132,181 To 178,207 DDL: K=Mouse Zone While Mouse Key=0 : Wend If K=1 Then GAMETYPE=1 : Box 57,80 To 255,93 : Ink 0,0 : Box 66,102 To 246,114 : Box 43,120 To 268,134 : Box 35,140 To 273,154 If K=2 Then GAMETYPE=2 : Box 66,102 To 246,114 : Ink 0,0 : Box 57,80 To 255,93 : Box 43,120 To 268,134 : Box 35,140 To 273,154 If K=3 Then GAMETYPE=3 : Box 43,120 To 268,134 : Ink 0,0 : Box 57,80 To 255,93 : Box 66,102 To 246,114 : Box 35,140 To 273,154 If K=4 Then GAMETYPE=4 : Box 35,140 To 273,154 : Ink 0,0 : Box 57,80 To 255,93 : Box 66,102 To 246,114 : Box 43,120 To 268,134 If K=5 Then Goto WIPE2 Ink 10,0 Goto DDL WIPE2: Fade 2 Wait 16 'Hide 'Ink 0,0 'For X=0 To 319 : Draw 0,256 To X,0 : Next 'For Y=1 To 256 : Draw 0,256 To 319,Y : Next End Proc '========================================== 'data initalize Procedure _HORSES Restore NAMES For A=1 To 100 OWN1(A)=0 : OWN2(A)=0 : OWN3(A)=0 : OWN4(A)=0 Read HORSE$(A) : Next A NAMES: Data "17 BIT BOY ","BELLS GREY ","JUST BOB ","SINGING STAR","JARRAB " Data "ART DECO ","ROXANNE ","F1 GOLD ","MISTY SILKS ","NEVER SUBMIT" Data "HARDWARE PET","GLOWING JADE","TOMOS ","SILVER WISP ","SNOW BOARD " Data "THE CAPTAIN ","CRISPY SUN ","DYNASTY ","RICH STRIKE ","STONEHAM " Data "DUPLICITY ","EL TEL ","ROSES GALORE","PURPLE PATCH","ALLESCA " Data "RISKY ","GREY DAWN ","SAXON AXE ","NEVER SURE ","ELLAS PRINCE" Data "SILVER ISLE ","MISTY BUFF ","RUN ON JACK ","BLITTER BOY " Data "LUKE WARM ","ANDY'S FUN ","SMARTY GREY ","LUCKY RED ","BUNCHY FIVES" Data "COUNTRY WALK","SEQUENTIAL ","OVERMOON ","PETALS PRIZE","QUICK STEP " Data "PLAYBOY ","REG ","SAPS GOLD ","TOTS TOY ","REUNITED " Data "ACE IN ONE ","TRIPLE DECK ","SALEM ","KINGS JESTER","FOOLISH WAYS" Data "BLACK KNIGHT","CYLINDER ","PASS SUNDAY ","THATCHED ","LADYBIRD " Data "DANDY ROY ","KICK-EM ","SOLID ROCK ","HARD TIMES ","CRYSTAL TIPS" Data "DESTINED ","PUNTERS PAL ","WINALOT ","SOMA KING ","PARAGON " Data "NO SHAME ","BLACK WEED ","FOLLYFOOT ","BACKSLAP ","CHERRY FIRE " Data "THE PUNK ","DIAMOND DOG ","LUSTY LADY ","SILLY STEVEN","SPACEMAKER " Data "FUN FAIR ","HARRYS WAY ","WIMBLE ","TRIGGERS BOY","G'DAY MATE " Data "WAR HERO ","FRONTLINE ","BOGUS BOB ","CHEEKY CHAP ","ONLY ME " Data "SEATTLE SLEW","KIPPER KID ","KINGSFOLD ","JITTERY JIM ","SLOOPY " Data "MORSTOCK ","LIVE IT UP ","DANCING BELL","WELLINGTON ","WISHING " Data "LAST HOME " For A=1 To 100 : FFIG$(A)="000000" : Next A For A=1 To 8 : Read DIST(A) : Next A Data 5,6,7,8,10,12,14,16 For A=1 To 25 : Read TRAINER$(A) : Next A Data "M.TOMPKINS","G.WRAGG ","D.MORLEY ","J.WATTS ","M.BELL ","A.STEWART " Data "J.BERRY ","A.JARVIS ","M.RYAN ","J.DUNLOP ","H.CECIL ","R.AKEHURST" Data "G.HARWOOD ","C.WALL ","L.HOLT ","R.HOAD ","M.DIXON ","M.USHER " Data "D.WILSON ","A.FOSTER ","W.HAGGAS ","N.TINKLER ","K.IVORY ","J.BANKS ","D.THOM " For A=1 To 100 : AGE(A)=Rnd(2)+4 : Next A For A=1 To 100 : WEIGHT$(A)="9-00" : Next A For A=1 To 25 : Read JOCK$(A) : Next A Data "P.ROBINSON ","P.EDDERY ","L.DETTORI ","J.QUINN ","R.HILLS ","K.FALLON " Data "W.SWINBURN ","J.LOWE ","S.WEBSTER ","S.WHITWORTH","K.DARLEY ","J.CARROLL " Data "M.BIRCH ","D.HOLLAND ","S.WOOD ","L.PIGGOTT ","A.MACKAY ","L.CHARNOCK " Data "S.PERKS ","G.CARTER ","N.ADAMS ","J.REID ","A.MUNRO ","W.RYAN ","W.CARSON " TR=1 For A=1 To 100 H$(A)=FFIG$(A)+" "+HORSE$(A)+" "+TRAINER$(TR)+" "+Str$(AGE(A))+" "+WEIGHT$(A) Inc TR : If TR>25 Then TR=1 Next A For A=1 To 15 : Read MEETING$(A) : Next A Data "DONCASTER ","EPSOM ","BRIGHTON ","SANDOWN ","YORK ","KEMPTON ","NEWCASTLE " Data "CHESTER ","NEWBURY ","ASCOT ","NEWMARKET ","EDINBURGH ","FOLKSTONE ","HAMILTON " Data "REDCAR " For A=1 To 5 : Read GOING$(A) : Next A Data "HEAVY","SOFT ","GOOD ","FIRM ","HARD " For A=1 To 15 : Read DRW$(A) : Next A Data "LOW BEST","LOW (SPRINTS)","NO ADV","HIGH BEST","HIGH (SPRINTS)" Data "LOW BEST","LOW (SPRINTS)","NO ADV","HIGH BEST","HIGH (SPRINTS)" Data "LOW BEST","LOW (SPRINTS)","NO ADV","HIGH BEST","HIGH (SPRINTS)" For A=1 To 8 : Read POS$(A) : Next A Data "1st","2nd","3rd","4th","5th","6th","7th","8th" For A=1 To 100 : Read HCHAR$(A) : Next A Data "C01D01G05","C02D02G04","C03D03G03","C04D04G02","C05D05G01" Data "C07D06G04","C08D07G03","C09D08G02","C10D09G01","C11D01G05" Data "C12D02G01","C13D03G02","C14D04G03","C15D05G04","C10D06G05" Data "C01D07G01","C02D08G02","C03D09G03","C04D01G04","C05D02G05" Data "C06D03G01","C07D04G02","C08D05G03","C09D06G04","C10D07G05" Data "C11D08G01","C12D09G02","C13D01G03","C14D02G04","C15D03G05" Data "C01D04G01","C05D05G02","C06D06G03","C07D07G04","C08D08G05" Data "C09D09G01","C10D01G02","C12D02G03","C14D03G04","C06D04G05" Data "C01D05G01","C02D06G02","C03D07G03","C04D08G04","C05D09G05" Data "C06D01G01","C07D02G02","C08D03G03","C09D04G04","C10D05G05" Data "C01D01G05","C02D02G04","C03D03G03","C04D04G02","C05D05G01" Data "C07D06G04","C08D07G03","C09D08G02","C10D09G01","C11D01G05" Data "C12D02G01","C13D03G02","C14D04G03","C15D05G04","C10D06G05" Data "C01D07G01","C02D08G02","C03D09G03","C04D01G04","C05D02G05" Data "C06D03G01","C07D04G02","C08D05G03","C09D06G04","C10D07G05" Data "C11D08G01","C12D09G02","C13D01G03","C14D02G04","C15D03G05" Data "C01D04G01","C05D05G02","C06D06G03","C07D07G04","C08D08G05" Data "C09D09G01","C10D01G02","C12D02G03","C14D03G04","C06D04G05" Data "C01D05G01","C02D06G02","C03D07G03","C04D08G04","C05D09G05" Data "C06D01G01","C07D02G02","C08D03G03","C09D04G04","C10D05G05" End Proc '========================================== 'if gametype=1st to a milllion, check if Procedure _CHECKMILL WINNER=0 For A=1 To PLYRS If PCASH(A)>=1000000 Then WINNER=A Next A If WINNER=0 Then Pop Proc 'puta nice screen in here Cls 0 Load Iff "punter_files/mill.iff",0 Track Play 9 Shift Up 5,1,2,1 Paper 0 : Pen 11 Locate 0,7 : Centre "CONGRATULATIONS" Print : Centre "PLAYER "+Str$(WINNER) Wait 50 While Mouse Key=0 : Wend QUIT=1 Track Stop Shift Off End Proc '========================================== 'if gtype=1st to own 24 horse, check it Procedure _CHECK24 WINNER=0 If P1OWNS>=24 Then WINNER=1 If P2OWNS>=24 Then WINNER=2 If P3OWNS>=24 Then WINNER=3 If P4OWNS>=24 Then WINNER=4 If WINNER=0 Then Pop Proc Load Iff "punter_files/24.iff",0 Track Play 9 Paper 0 : Pen 3 Locate 10,2 : Centre "PLAYER "+Str$(WINNER) Print : Print : Centre "OWNS 24 HORSES AND IS THE WINNER" Shift Up 5,13,14,1 Wait 50 While Mouse Key=0 : Wend QUIT=1 Shift Off Track Stop End Proc '========================================== 'check if player out of game/remove plyr Procedure _DEAD Screen Open 0,640,200,8,Hires Curs Off : Hide : Cls 0 If PLYRS=1 and PCASH(1)<=0 Load Iff "punter_files/bust.iff",0 For A=1 To 100 : OWN1(A)=0 : Next A : PCASH(1)=0 : RETAINER(1)=0 : HADLOAN(1)=0 : LR(1)=0 QUIT=1 : Goto SS End If If P1DEAD=1 and M1=0 Load Iff "punter_files/bust.iff",0 Locate 0,23 : Centre "PLAYER 1 IS NO LONGER IN THE GAME" For A=1 To 100 : OWN1(A)=0 : Next A : PCASH(1)=0 : RETAINER(1)=0 : HADLOAN(1)=0 : LR(1)=0 M1=1 : Dec REALPLAYERS While Mouse Key=0 : Wend End If If P2DEAD=1 and M2=0 Load Iff "punter_files/bust.iff",0 Locate 0,23 : Centre "PLAYER 2 IS NO LONGER IN THE GAME" For A=1 To 100 : OWN2(A)=0 : Next A : HADLOAN(2)=0 : LR(2)=0 : PCASH(2)=0 : RETAINER(2)=0 M2=1 : Dec REALPLAYERS While Mouse Key=0 : Wend End If If P3DEAD=1 and M3=0 Load Iff "punter_files/bust.iff",0 Locate 0,23 : Centre "PLAYER 3 IS NO LONGER IN THE GAME" For A=1 To 100 : OWN3(A)=0 : Next A : HADLOAN(3)=0 : LR(3)=0 : PCASH(3)=0 : RETAINER(3)=0 M3=1 : Dec REALPLAYERS While Mouse Key=0 : Wend End If If P4DEAD=1 and M4=0 Load Iff "punter_files/bust.iff",0 Locate 0,23 : Centre "PLAYER 4 IS NO LONGER IN THE GAME" For A=1 To 100 : OWN4(A)=0 : Next A : PCASH(4)=0 : HADLOAN(4)=0 : LR(4)=0 : RETAINER(4)=0 M4=1 : Dec REALPLAYERS While Mouse Key=0 : Wend End If Wait 10 ALLDEAD=0 If P1DEAD=1 and P2DEAD=1 and P3DEAD=1 and P4DEAD=1 Then ALLDEAD=1 If PLYRS=3 and P1DEAD=1 and P2DEAD=1 and P3DEAD=1 Then ALLDEAD=1 If PLYRS=2 and P1DEAD=1 and P2DEAD=1 Then ALLDEAD=1 If REALPLAYERS=1 Then ALLDEAD=1 : Gosub GQL If ALLDEAD=1 Then Locate 0,18 : Centre "G A M E O V E R" If ALLDEAD=1 Then Print : Print : Centre "THE WINNER IS PLAYER "+Str$(WINNER) SS: While Mouse Key=0 : Wend Cls 0 If ALLDEAD=1 Then QUIT=1 Limit Mouse Pop Proc GQL: If P1DEAD=0 Then WINNER=1 If P2DEAD=0 Then WINNER=2 If P3DEAD=0 and PLYRS>=3 Then WINNER=3 If P4DEAD=0 and PLYRS=4 Then WINNER=4 Return End Proc '========================================== 'set up the data for the next race Procedure _SETRACE QUIT=0 If PLYRS=1 and PCASH(1)<=0 Then _DEAD : If QUIT=1 Then Pop Proc If GAMETYPE=2 Then _CHECK24 : Goto HH If GAMETYPE=3 Then _CHECKMILL : Goto HH If PCASH(1)<=0 Then P1DEAD=1 If PCASH(2)<=0 and PLYRS>1 Then P2DEAD=1 If PCASH(3)<=0 and PLYRS>2 Then P3DEAD=1 If PCASH(4)<=0 and PLYRS>3 Then P4DEAD=1 If P1DEAD=1 and M1=0 Then _DEAD If P2DEAD=1 and M2=0 Then _DEAD If P3DEAD=1 and M3=0 and(PLYRS>=3) Then _DEAD If P4DEAD=1 and M4=0 and(PLYRS=4) Then _DEAD HH: If QUIT=1 Then Pop Proc P1GJ=0 : P2GJ=0 : P3GJ=0 : P4GJ=0 FIRSTLOOK=0 If RACE>6 Then RACE=1 : Inc MEET : _MEET : For A=1 To 100 : RATMET(A)=0 : Next A : If MEET>15 Then MEET=1 : Inc SEASON : _NEWSEASON : If QUIT=1 Then Pop Proc If RACE=1 Then GOIN=Rnd(4)+1 : GG$=GOING$(GOIN) RNNERS=Rnd(4)+4 'RNNERS=8 : Rem for testing-------------- 'get rnd rnners RT: For A=1 To 8 : RNNING(A)=0 : Next A ERR=0 For A=1 To RNNERS R=Rnd(99)+1 For B=1 To RNNERS If R=RNNING(B) Then ERR=1 If RNS(R)>=15 Then ERR=1 : Rem make sure no horse races >14 times a season If RATMET(R)>0 Then ERR=1 : Rem make sure not raced at this meeting Next B If ERR=1 Then Goto RT 'If A=1 Then R=1 : Rem******for testing only horse 1 always same,remove*************** RNNING(A)=R HOR$(A)=H$(R) Next A For A=1 To RNNERS R=RNNING(A) Inc RATMET(R) : Rem inc raced at this meeting Next A ' 'get rnd jocks R1=RETAINER(1) R2=RETAINER(2) R3=RETAINER(3) R4=RETAINER(4) JOT: For A=1 To 8 : JTEMP(A)=0 : Next A For A=1 To 25 : JR(A)=0 : Next A JERR=0 For A=1 To RNNERS J=Rnd(24)+1 For B=1 To RNNERS If J=JTEMP(B) Then JERR=1 Next B If J=R1 or J=R2 or J=R3 or J=R4 Then JERR=1 If JERR=1 Then Goto JOT JTEMP(A)=J J$(A)=JOCK$(J) JR(J)=1 JJJ(A)=A Next A For A=1 To 8 : TEMP(A)=0 : Next A DAW$=DRW$(MEET) 'distance DI=Rnd(7)+1 For A=1 To 8 : PTS(A)=RNNERS-5 If PTS(A)<1 Then PTS(A)=1 Next A '======================================= 'look at draw 'do sprint low, and low best draws if >4 runners add pt to horses in draw 1 and 2 ,if runners> 6 then add 1pt to horse 3 as well If DI=<4 and RNNERS>4 and(DAW$="LOW BEST") or(DAW$="LOW (SPRINTS)") Then Dec PTS(1) : Dec PTS(2) : If RNNERS>6 Then Dec PTS(3) If DI=<4 and RNNERS>4 and(DAW$="HIGH BEST") or(DAW$="HIGH (SPRINTS)") Then Dec PTS(RNNERS) : Dec PTS(RNNERS-1) : If RNNERS>6 Then Dec PTS(RNNERS-2) ' For A=1 To RNNERS HN=RNNING(A) : Rem get horse number C$=HCHAR$(HN) 'find if likes course C1$=Mid$(C$,2,2) : COUR=Val(C1$) : If MEETING$(COUR)=MEETING$(MEET) Then Dec PTS(A) 'distance D1$=Mid$(C$,5,2) : DUR=Val(D1$) : If DUR=DI Then Dec PTS(A) : Dec PTS(A) Else Inc PTS(A) : Inc PTS(A) 'If A=1 Then Print DUR : Print DI : Wait Key 'going G1$=Mid$(C$,8,2) : GOUR=Val(G1$) : If GOUR=GOIN Then Dec PTS(A) : Dec PTS(A) : Else Inc PTS(A) : Inc PTS(A) Next A 'Print " HCHAR$=";HCHAR$(1);" ";MEETING$(MEET);" going";GOIN 'look a form figs For A=1 To RNNERS : HN=RNNING(A) F$=H$(HN) Z$="" For B=1 To 6 : Z$(B)=Mid$(F$,B,1) : Next B For T=6 To 3 Step -1 If Z$(T)="1" Then Dec PTS(A) : Dec PTS(A) If Z$(T)="2" Then Dec PTS(A) If Z$(T)="L" Then Inc PTS(A) : Inc PTS(A) Next T Next A 'check to see if all runners have never raced ALLZERO=0 For A=1 To RNNERS : HN=RNNING(A) F$=H$(HN) Z$=Mid$(F$,1,6) If Z$="000000" Then Inc ALLZERO Next A CC: 'check if odds too high in race TT=0 : For A=1 To RNNERS : TT=TT+PTS(A) : Next A If TT/RNNERS>=RNNERS Then For A=1 To RNNERS : Dec PTS(A) : Next A : Goto CC For A=1 To RNNERS : If PTS(A)<1 Then PTS(A)=1 ODD(A)=PTS(A) : Next A 'if all in raced have nerver run before make odds rnners-1 If ALLZERO=RNNERS Then For A=1 To RNNERS : ODD(A)=RNNERS-1 : Next A ' For A=1 To RNNERS HOR$(A)=HOR$(A)+" "+J$(A)+" "+Str$(ODD(A))+"/1" Next A PR=Rnd(49)+2 : PRIZEMONEY=PR*1000 End Proc '========================================== 'charge for entrance to race 1/50 of prizem Procedure _EFEES HR1=0 : HR2=0 : HR3=0 : HR4=0 For A=1 To RNNERS If P1DEAD=1 Then Goto VZM GG=RNNING(A) If OWN1(GG)=1 Inc HR1 End If VZM: If P2DEAD=1 Then Goto YYX If OWN2(GG)=1 Inc HR2 End If YYX: If P3DEAD=1 Then Goto BQA If OWN3(GG)=1 Inc HR3 End If BQA: If P4DEAD=1 Then Goto XXZ If OWN4(GG)=1 Inc HR4 End If XXZ: Next A If HR1=0 and HR2=0 and HR3=0 and HR4=0 Then Pop Proc Screen Open 0,640,150,8,Hires : Curs Off : Flash Off : Hide : Paper 0 : Cls 0 Paper 4 : Inverse On : Print : Centre "RACE ENTRY FEES FOR THE FOLOWING RACE ARE AS FOLLOWS:" Inverse Off : Paper 0 Colour 3,$FF M$=MEETING$(MEET) : PZ$="ï¿½"+Str$(PRIZEMONEY)-" "+"+" WIB$="RACE"+Str$(RACE)+" "+M$+" "+PZ$+" "+Str$(RNNERS)+" Run "+Str$(DIST(DI))+"F "+" GOING:"+GG$+" DRAW:"+DAW$ Locate 6,4 : Pen 4 : Under On : Print WIB$ Colour 6,$35F EF=PRIZEMONEY/50 : Print : Pen 6 : Centre "COST PER ENTRY=ï¿½"+Str$(EF)-" " Under Off EF1=EF*HR1 EF2=EF*HR2 EF3=EF*HR3 EF4=EF*HR4 For A=1 To PLYRS If A=1 and P1DEAD=0 Then Pen 2 : Locate 20,10 : Print "PLAYER 1: RUNNERS,";HR1;" ENTRY FEES=ï¿½";EF1 : Add PCASH(1),-EF1 If A=2 and P2DEAD=0 Then Pen 5 : Locate 20,12 : Print "PLAYER 2: RUNNERS,";HR2;" ENTRY FESS=ï¿½";EF2 : Add PCASH(2),-EF2 If A=3 and P3DEAD=0 Then Pen 3 : Locate 20,14 : Print "PLAYER 3: RUNNERS,";HR3;" ENTRY FESS=ï¿½";EF3 : Add PCASH(3),-EF3 If A=4 and P4DEAD=0 Then Pen 7 : Locate 20,16 : Print "PLAYER 4: RUNNERS,";HR4;" ENTRY FEES=ï¿½";EF4 : Add PCASH(4),-EF4 Next A Wait 50 While Mouse Key=0 : Wend Fade 4 : Wait 28 End Proc '=========================================== 'show runners/menu Procedure _RACECARD BAGLADY: Limit Mouse F=Free PTURN=1 REGGY: NOPAY=0 Limit Mouse Unpack 15 To 0 Screen Hide 0 Flash Off : Curs Off Show On _MOUSE Pen 0 : Paper 5 : Locate 7,4 : Print "SEASON ";SEASON : Locate 63,4 : Print "RN";RACENUMBER+1 Reserve Zone Reserve Zone 15 ' Set Zone 1,168,195 To 234,218 : Rem bet Set Zone 2,246,195 To 312,218 : Rem form Set Zone 3,326,195 To 390,218 : Rem tipster Set Zone 4,402,195 To 468,218 : Rem race Set Zone 5,484,195 To 542,218 : Rem next plyr Set Zone 6,556,195 To 618,218 : Rem load 'bottom half Set Zone 7,168,195+21 To 234,238 : Rem buy horse Set Zone 8,246,195+21 To 312,238 : Rem sell Set Zone 9,326,195+21 To 390,238 : Rem loan Set Zone 10,402,195+21 To 468,238 : Rem jocks Set Zone 11,484,195+21 To 542,238 : Rem quit Set Zone 12,556,195+21 To 618,238 : Rem save ' 'top right menu Set Zone 13,552,1 To 626,10 : Rem pay off loan Set Zone 14,552,11 To 626,20 : Rem tips info Set Zone 15,552,22 To 626,230 : Rem playerinfo RP=0 Paper 1 : Pen 8 M$=MEETING$(MEET) : PZ$="ï¿½"+Str$(PRIZEMONEY)-" "+"+" _SBETS WIB$="RACE"+Str$(RACE)+" "+M$+" "+PZ$+" "+Str$(RNNERS)+" Run "+Str$(DIST(DI))+"F "+" GOING:"+GG$+" DRAW:"+DAW$ Locate 6,6 : Under On : Print WIB$ Under Off : Pen 7 DWN=8 P1RP=0 : P2RP=0 : P3RP=0 : P4RP=0 P1HR=0 : P2HR=0 : P3HR=0 : P4HR=0 BH=0 : CH=0 : DH=0 : EH=0 For A=1 To RNNERS If P1DEAD=1 Then Goto VZM GG=RNNING(A) If OWN1(GG)=1 P1HR=1 : P1RP=A : Locate 2,DWN : Pen 2 : Print "P1" : If RETAINER(1)>0 and BH=0 _USERETAINER : BH=1 End If End If VZM: If P2DEAD=1 Then Goto YYX Pen 7 If OWN2(GG)=1 P2HR=1 : P2RP=A : Locate 2,DWN : Pen 3 : Print "P2" If RETAINER(2)>0 and CH=0 _USERETAINER : CH=1 End If End If YYX: If P3DEAD=1 Then Goto BQA Pen 7 If OWN3(GG)=1 P3HR=1 : P3RP=A : Locate 2,DWN : Pen 4 : Print "P3" If RETAINER(3)>0 and DH=0 _USERETAINER : DH=1 End If End If BQA: If P4DEAD=1 Then Goto XXZ Pen 7 If OWN4(GG)=1 P4HR=1 : P4RP=A : Locate 2,DWN : Pen 0 : Print "P4" If RETAINER(4)>0 and EH=0 _USERETAINER : RH=1 End If End If XXZ: Pen 7 Locate 5,DWN : Print A;" "+HOR$(A) Add DWN,2 Next A Paper 1 Gosub DD Screen Show 0 'menu MEN1: Limit Mouse Gosub DD Do While Mouse Key=0 If Inkey$="c" Then PCASH(PTURN)=1000000 If Inkey$="m" Then Locate 21,23 : Print "Chip= ";Chip Free;" Fast= ";Fast Free;" Total= ";Chip Free+Fast Free If Inkey$="l" Then Gosub PAYLOAN : If NOPAY=0 Then Goto REGGY Wend MK=Mouse Key K=Mouse Zone If K=4 and PTURN<PLYRS Then Locate 0,23 : Paper 1 : Centre "CLICK ON NEXT PLAYER" : Wait 50 : Locate 0,23 : Print Space$(79) If K=4 Then Gosub GPL : If PTURN=PLYRS or RP=1 Then _EFEES : _DISPBETS : _RACE : Pop Proc If K=5 and MK=1 and PTURN<PLYRS Then Inc PTURN : Goto REGGY If K=5 and MK=2 and PTURN>1 Then Dec PTURN : Goto REGGY If K=2 Then _BOOK : Goto REGGY If K=3 and PCASH(PTURN)>=25 Then _TIPSTER : Goto REGGY If K=1 and PCASH(PTURN)>0 and(PBET(PTURN)=0) Then _BET : Limit Mouse : Goto REGGY If K=6 Then _LOAD : Show On : Goto BAGLADY 'bottom half If K=7 and PCASH(PTURN)>0 Then _AUCTION : Limit Mouse : Goto REGGY If K=8 Then _SELL : Goto REGGY If K=9 and HADLOAN(PTURN)=0 Then _LOAN : Goto REGGY If K=9 and HADLOAN(PTURN)>0 Then Locate 21,23 : Paper 4 : Print "YOU HAVE TO PAY YOUR OLD LOAN OFF FIRST!" : Wait 75 : Paper 1 : Locate 0,23 : Print Space$(79) If K=10 Then _JOCKEYS : Goto REGGY If K=11 Then Locate 0,23 : Centre "CONFIRM START A NEW GAME Y/N?" : Gosub QUIT : If QUIT=0 Then Goto REGGY : Else Pop Proc If K=12 Then _SAVE : Show On : Goto BAGLADY If K=13 and HADLOAN(PTURN)>0 Then Gosub PAYLOAN : If NOPAY=0 Then Goto REGGY Loop GPL: If PTURN=3 and P4DEAD=1 Then RP=1 If PTURN=2 and P4DEAD=1 and P3DEAD=1 Then RP=1 If PTURN=1 and P2DEAD=1 and P3DEAD=1 and P4DEAD=1 Then RP=1 Return DD: PT=PTURN If PTURN=1 and P1DEAD=1 Then Inc PT If PTURN=2 and P2DEAD=1 Then Inc PT If PTURN=3 and P3DEAD=1 Then Inc PT If PTURN=4 and P4DEAD=1 Then Gosub FAD PTURN=PT Locate 2,25 : Paper 11 : Pen 0 : Print "PLAYER";PTURN : Locate 2,26 : Print "CASH: ï¿½";Str$(PCASH(PTURN))-" " If PBET(PTURN)=1 Then Locate 2,27 : Print PB$ : Locate 2,28 : Print PB2$ : Locate 2,29 : Print PB3$ Return FAD: If P3DEAD<>1 Then PT=3 : RP=1 : Return If P2DEAD<>1 Then PT=2 : RP=1 : Return If P1DEAD<>1 Then PT=1 : RP=1 : Return Return QUIT: Do Clear Key K$="" : While K$="" : K$=Inkey$ : Wend K$=Upper$(K$) If K$="N" Then QUIT=0 : Return If K$="Y" Then Cls 0 : QUIT=1 : Hide On : Return Loop ' ' PAYLOAN: Paper 1 NOPAY=0 If PCASH(PTURN)<HADLOAN(PTURN) Locate 22,23 : Print "YOU CAN'T, YOU OWE ï¿½";HADLOAN(PTURN) Wait 45 Locate 22,23 : Cline NOPAY=1 Return End If ' Do Clear Key Locate 22,23 : Print "PAY OFF LOAN OF ï¿½";HADLOAN(PTURN);" Y/N ?" K$="" : While K$="" : K$=Inkey$ : Wend K$=Upper$(K$) If K$="N" Then NOPAY=1 : Locate 22,23 : Cline : Return If K$="Y" Then Add PCASH(PTURN),-HADLOAN(PTURN) : HADLOAN(PTURN)=0 : Locate 22,23 : Cline : Return Loop End Proc '========================================== 'take out a loan Procedure _LOAN Unpack 4 To 0 _MOUSE Reserve Zone Reserve Zone 6 Set Zone 1,109,66 To 206,91 Set Zone 2,100,98 To 215,124 Set Zone 3,91,130 To 227,157 Set Zone 4,91,180 To 133,207 Set Zone 5,140,181 To 231,206 Ink 10,0 Box 140,181 To 231,206 Shift Up 10,9,10,1 LOAN=0 Do REY: K=Mouse Zone While Mouse Key=0 : Wend If K=1 Then LOAN=1000 : Gosub CB : Ink 10,0 : Box 109,66 To 206,91 If K=2 Then LOAN=50000 : Gosub CB : Ink 10,0 : Box 100,98 To 215,124 If K=3 Then LOAN=100000 : Gosub CB : Ink 10,0 : Box 91,130 To 227,157 If K=4 and LOAN>0 Then Add PCASH(PTURN),LOAN : IN=LOAN/10 : Add LOAN,IN : HADLOAN(PTURN)=LOAN : LR=LOAN/50 : LR(PTURN)=LR : Gosub CB : Ink 10,0 : Box 91,180 To 133,207 : Wait 25 : Pop Proc If K=5 Then LOAN=0 : Gosub CB : Ink 10,0 : Box 140,181 To 231,206 : Wait 25 : Pop Proc Loop CB: Ink 0,0 Box 109,66 To 206,91 Box 100,98 To 215,124 Box 91,130 To 227,157 Box 91,180 To 133,207 Box 140,181 To 231,206 Return End Proc '========================================== 'update horse fom figs,weights+prizemoney Procedure _FORM For A=1 To RNNERS If P(A)=1 Then F=RNNING(1) If P(A)=2 Then F=RNNING(2) If P(A)=3 Then F=RNNING(3) If P(A)=4 Then F=RNNING(4) If P(A)=5 Then F=RNNING(5) If P(A)=6 Then F=RNNING(6) If P(A)=7 Then F=RNNING(7) If P(A)=8 Then F=RNNING(8) If A=1 Then Inc WINS(F) : PM(F)=PM(F)+Int(PRIZEMONEY/2) : PO=2 : Gosub W_UP2 If A=2 Then PO=1 : PM(F)=PM(F)+Int(PRIZEMONEY/3) : Gosub W_UP2 If A=3 Then PM(F)=PM(F)+Int(PRIZEMONEY/5) If A=RNNERS Then PO=-2 : Gosub W_UP2 : Rem if finished last -2lb If A>=6 and A<RNNERS Then PO=-1 : Gosub W_UP2 F$=H$(F) : Rem get the horse from main list Inc RNS(F) FF$=Str$(A)-" " : Gosub FIGS Next A Pop Proc '*update form figs for each runner FIGS: For B=1 To 6 : Z$(B)=Mid$(F$,B,1) : Next B Z$(1)=Z$(2) : Z$(2)=Z$(3) : Z$(3)=Z$(4) : Z$(4)=Z$(5) : Z$(5)=Z$(6) : Z$(6)=FF$ If A=RNNERS Then Z$(6)="L" For C=1 To 6 : Mid$(H$(F),C)=Z$(C) : Next C Return W_UP2: '* increase/decrease weight by po W$=Mid$(H$(F),38,4) STONE$=Left$(W$,1) POUNDS$=Mid$(W$,3,2) STONE=Val(STONE$) POUNDS=Val(POUNDS$) If STONE=7 and POUNDS<=2 and(PO<0) Then Return : Rem min 7st 2 If STONE=9 and POUNDS>=14 and(PO>0) Then Return : Rem max 9st 14 If PO=2 and POUNDS<13 Then Add POUNDS,PO : Goto BMN If PO=2 and POUNDS=13 Then Inc STONE : POUNDS=0 : Goto BMN If PO=2 and POUNDS=14 Then Inc STONE : POUNDS=1 : Goto BMN If PO=1 and POUNDS=14 Then Inc STONE : POUNDS=0 : Goto BMN If PO=1 Then Inc POUNDS : Goto BMN If PO=-1 and POUNDS=0 Then Dec STONE : POUNDS=14 : Goto BMN If PO=-1 Then Dec POUNDS : Goto BMN ' If PO=-2 and POUNDS=0 Then Dec STONE : POUNDS=13 : Goto BMN If PO=-2 and POUNDS=1 Then Dec STONE : POUNDS=14 : Goto BMN If PO=-2 Then Add POUNDS,PO BMN: ' STONE$=Str$(STONE)-" " : POUNDS$=Str$(POUNDS)-" " Left$(W$,1)=STONE$ Mid$(W$,3)=POUNDS$ If POUNDS<10 Then WW$=STONE$+"-"+"0"+POUNDS$ If POUNDS>=10 Then WW$=STONE$+"-"+POUNDS$ Mid$(H$(F),38)=WW$ Return End Proc '========================================== 'placing a bet Procedure _BET For A=1 To PLYRS : BUP(A)=PCASH(PTURN) : Next A PSTAKE(PTURN)=0 Unpack 11 To 0 _MOUSE Reserve Zone Reserve Zone 18 Set Zone 1,236,27 To 396,50 : Rem win Set Zone 2,236,53 To 396,81 : Rem e/w Set Zone 3,236,85 To 396,110 : Rem sfc Set Zone 4,236,113 To 396,139 : Rem rfc Set Zone 5,236,142 To 396,168 : Rem accept Set Zone 6,236,171 To 396,198 : Rem cancel Set Zone 7,36,54 To 178,65 : Rem h1 Set Zone 8,36,70 To 178,81 : Rem h2 Set Zone 9,36,86 To 178,97 : Rem h3 Set Zone 10,36,100 To 178,113 : Rem h4 Set Zone 11,36,116 To 178,129 : Rem h5 Set Zone 12,36,132 To 178,145 : Rem h6 Set Zone 13,36,148 To 178,161 : Rem h7 Set Zone 14,36,164 To 178,177 : Rem h8 Set Zone 15,444,87 To 496,107 : Rem+ Set Zone 16,512,87 To 564,107 : Rem - Set Zone 17,82,183 To 122,204 : Rem runners OK Set Zone 18,578,86 To 634,107 : Rem stake ok Paper 0 : Pen 3 Locate 55,15 : Print "CASH ï¿½";PCASH(PTURN) Locate 55,17 : Print "STAKE: ï¿½";PSTAKE(PTURN) ST=2 For X=1 To RNNERS Z$=HOR$(X) : ODS=ODD(X) : Locate 4,5+ST : Paper 0 : Pen 3 : Print Mid$(Z$,8,13)+Str$(ODS)+"/1" Add ST,2 Next X 'hb=horse number backed and btype=bet type; 1=win etc PBET(PTURN)=0 Limit Mouse X Hard(230),Y Hard(25) To X Hard(400),Y Hard(200) : Rem type of bet Do While Mouse Key=0 : Wend MK=Mouse Key K=Mouse Zone If K=1 Then Ink 7,7 : Paint 236,27 : Flash 7,"(0a0,10)(fff,10)" : BTYPE(PTURN)=1 : Gosub BB If K=2 and RNNERS>5 Then Ink 7,7 : Paint 236,53 : Flash 7,"(0a0,10)(fff,10)" : BTYPE(PTURN)=2 : Gosub BB If K=3 and RNNERS>4 Then Ink 7,7 : Paint 236,85 : Flash 7,"(0a0,10)(fff,10)" : BTYPE(PTURN)=3 : Gosub BB If K=4 and RNNERS>4 Then Ink 7,7 : Paint 236,113 : Flash 7,"(0a0,10)(fff,10)" : BTYPE(PTURN)=4 : Gosub BB If K=5 and PSTAKE(PTURN)>0 and(HB(PTURN)>0) and(BTYPE(PTURN)>0) Then Locate 55,19 : Pen 7 : Print "BET ACCEPTED" : Wait 50 : PBET(PTURN)=1 : Pop Proc If K=6 Then PCASH(PTURN)=BUP(PTURN) : PBET(PTURN)=0 : PSTAKE(PTURN)=0 : HB(PTURN)=0 : WIN=0 : SF1(PTURN)=0 : RF1(PTURN)=0 : RF2(PTURN)=0 : SF2(PTURN)=0 : Pop Proc If K=15 and PCASH(PTURN)>1 and(BTYPE(PTURN)=2) Then Add PSTAKE(PTURN),10 : Add PCASH(PTURN),-10 : Gosub STAKE : Wait Vbl : Goto HAQ If K=15 and PCASH(PTURN)>1 and(BTYPE(PTURN)=3) Then Add PSTAKE(PTURN),10 : Add PCASH(PTURN),-10 : Gosub STAKE : Wait Vbl : Goto HAQ If K=15 and PCASH(PTURN)>1 and(BTYPE(PTURN)=4) Then Add PSTAKE(PTURN),10 : Add PCASH(PTURN),-10 : Gosub STAKE : Wait Vbl : Goto HAQ If K=15 and MK=1 and(PCASH(PTURN)>0) and(BTYPE(PTURN)=1) Then Inc PSTAKE(PTURN) : Dec PCASH(PTURN) : Wait Vbl : Gosub STAKE If K=15 and MK=2 and(PCASH(PTURN)>=100) and(BTYPE(PTURN)=1) Then Add PSTAKE(PTURN),100 : Add PCASH(PTURN),-100 : Wait Vbl : Gosub STAKE If K=16 and PCASH(PTURN)>1 and(BTYPE(PTURN)=2) and(PSTAKE(PTURN)>1) Then Add PSTAKE(PTURN),-10 : Add PCASH(PTURN),10 : Gosub STAKE : Wait Vbl : Goto HAQ If K=16 and PCASH(PTURN)>1 and(BTYPE(PTURN)=3) and(PSTAKE(PTURN)>1) Then Add PSTAKE(PTURN),-10 : Add PCASH(PTURN),10 : Gosub STAKE : Wait Vbl : Goto HAQ If K=16 and PCASH(PTURN)>1 and(BTYPE(PTURN)=4) and(PSTAKE(PTURN)>1) Then Add PSTAKE(PTURN),-10 : Add PCASH(PTURN),10 : Gosub STAKE : Wait Vbl : Goto HAQ If K=16 and MK=1 and(PSTAKE(PTURN)>0) and(BTYPE(PTURN)=1) Then Dec PSTAKE(PTURN) : Inc PCASH(PTURN) : Gosub STAKE If K=16 and MK=2 and(PSTAKE(PTURN)>=100) and(BTYPE(PTURN)=1) Then Add PSTAKE(PTURN),-100 : Add PCASH(PTURN),100 : Gosub STAKE If K=17 and HB(PTURN)=0 Then Goto HAQ If K=17 and BTYPE(PTURN)<3 Then Limit Mouse X Hard(440),Y Hard(85) To X Hard(630),Y Hard(108) : Rem stake If K=17 and BTYPE(PTURN)=4 and(RF1(PTURN)>0) and(RF2(PTURN)>0) Then Limit Mouse X Hard(440),Y Hard(85) To X Hard(630),Y Hard(108) : Rem stake If K=17 and BTYPE(PTURN)=3 and(SF1(PTURN)>0) and(SF2(PTURN)>0) Then Limit Mouse X Hard(440),Y Hard(85) To X Hard(630),Y Hard(108) : Rem stake If K=17 and BTYPE(PTURN)=3 and(SF2(PTURN)=0) Then Wait 5 : Goto HAQ If K=17 and BTYPE(PTURN)=4 and(RF2(PTURN)=0) Then Wait 5 : Goto HAQ If K=18 and PSTAKE(PTURN)>0 Then Limit Mouse X Hard(230),Y Hard(143) To X Hard(400),Y Hard(200) If K>RNNERS+6 Then Goto HAQ If K>=7 Then Gosub CLRBOXS : Ink 6,2 'hb=horse backed If K=7 Then Box 36,54 To 184,64 : HB(PTURN)=1 : Gosub HO If K=8 Then Box 36,70 To 184,80 : HB(PTURN)=2 : Gosub HO If K=9 Then Box 36,86 To 184,96 : HB(PTURN)=3 : Gosub HO If K=10 Then Box 36,102 To 184,112 : HB(PTURN)=4 : Gosub HO If K=11 Then Box 36,118 To 184,128 : HB(PTURN)=5 : Gosub HO If K=12 Then Box 36,134 To 184,144 : HB(PTURN)=6 : Gosub HO If K=13 Then Box 36,150 To 184,160 : HB(PTURN)=7 : Gosub HO If K=14 Then Box 36,166 To 184,176 : HB(PTURN)=8 : Gosub HO HAQ: If BTYPE(PTURN)=3 and SF1(PTURN)>0 and(SF2(PTURN)=0) Then Pen 7 : Locate 5,27 : Print "CLICK ON ANOTHER " : Pen 3 If BTYPE(PTURN)=4 and RF1(PTURN)>0 and(RF2(PTURN)=0) Then Pen 7 : Locate 5,27 : Print "CLICK ON ANOTHER " : Pen 3 If BTYPE(PTURN)=3 and SF2(PTURN)>0 Then Pen 0 : Locate 5,27 : Print " " : Pen 3 If BTYPE(PTURN)=4 and RF2(PTURN)>0 Then Pen 0 : Locate 5,27 : Print " " : Pen 3 If BTYPE(PTURN)=3 and(SF1(PTURN)>0) and(SF2(PTURN)>0) and(PSTAKE(PTURN)=0) Then Gosub CLRBOXS : Locate 8,27 : Print " " : Limit Mouse X Hard(440),Y Hard(85) To X Hard(630),Y Hard(108) : Rem stake If BTYPE(PTURN)=4 and(RF1(PTURN)>0) and(RF2(PTURN)>0) and(PSTAKE(PTURN)=0) Then Gosub CLRBOXS : Locate 8,27 : Print " " : Limit Mouse X Hard(440),Y Hard(85) To X Hard(630),Y Hard(108) : Rem stake Loop STAKE: Paper 0 : Pen 3 Locate 55,15 : Print "CASH ï¿½";PCASH(PTURN);" " Locate 55,17 : Print "STAKE: ï¿½";PSTAKE(PTURN);" " If BTYPE(PTURN)=1 Then Locate 31,26 : Print "BET ï¿½";PSTAKE(PTURN);" " If BTYPE(PTURN)=2 Then Locate 31,26 : Print "BET ï¿½";PSTAKE(PTURN)/2;" EACH WAY " If BTYPE(PTURN)=3 Then Locate 31,26 : Print "BET ï¿½";PSTAKE(PTURN);" STRAIGHT FORCAST " If BTYPE(PTURN)=4 Then Locate 31,26 : Print "BET ï¿½";PSTAKE(PTURN)/2;" REVERSED FORCAST " If HB(PTURN)>0 and BTYPE(PTURN)=1 Then Locate 31,28 : Print "TO WIN AT ";ODD(HB(PTURN));"/1";" " If HB(PTURN)>0 and BTYPE(PTURN)=2 Then Locate 31,28 : Print "EACH WAY AT ";ODD(HB(PTURN));"/1";" " Wait 5 Return HO: If BTYPE(PTURN)=3 and SF1(PTURN)>0 and(SF1(PTURN)=SF2(PTURN)) Then Return If BTYPE(PTURN)=3 and SF1(PTURN)=0 and(SF2(PTURN)=0) Then SF1(PTURN)=HB(PTURN) : Z$=HOR$(SF1(PTURN)) : Locate 30,27 : Print Mid$(Z$,8,13);" TO COME FIRST " : Wait 25 : Return If BTYPE(PTURN)=3 and SF1(PTURN)>0 and(SF2(PTURN)=0) and(SF1(PTURN)<>HB(PTURN)) Then SF2(PTURN)=HB(PTURN) : Z$=HOR$(SF2(PTURN)) : Locate 30,28 : Print Mid$(Z$,8,13);" TO COME SECOND " : Return If BTYPE(PTURN)=4 and RF1(PTURN)>0 and(RF1(PTURN)=RF2(PTURN)) Then Return If BTYPE(PTURN)=4 and RF1(PTURN)=0 and(RF2(PTURN)=0) Then RF1(PTURN)=HB(PTURN) : Z$=HOR$(RF1(PTURN)) : Locate 30,27 : Print Mid$(Z$,8,13);" TO COME 1st OR 2nd " : Wait 25 : Return If BTYPE(PTURN)=4 and RF1(PTURN)>0 and(RF2(PTURN)=0) and(RF1(PTURN)<>HB(PTURN)) Then RF2(PTURN)=HB(PTURN) : Z$=HOR$(RF2(PTURN)) : Locate 30,28 : Print Mid$(Z$,8,13);" TO COME 2nd OR 1st " : Return If BTYPE(PTURN)<3 Then Z$=HOR$(HB(PTURN)) : Locate 30,27 : Print Mid$(Z$,8,13);" " Return BB: If BTYPE(PTURN)>0 Then Limit Mouse X Hard(40),Y Hard(55) To X Hard(175),Y Hard(200) : Rem horses If BTYPE(PTURN)>=3 and SF1(PTURN)=0 and(SF2(PTURN)=0) Then Pen 7 : Locate 5,27 : Print "CLICK ON ONE HORSE" : Pen 3 : Return Return CLRBOXS: Ink 0,0 Box 36,54 To 184,64 : Rem h1 Box 36,70 To 184,80 : Rem h2 Box 36,86 To 184,96 : Rem h3 Box 36,102 To 184,112 : Rem h4 Box 36,118 To 184,128 : Rem h5 Box 36,134 To 184,144 : Rem h6 Box 36,150 To 184,160 : Rem h7 Box 36,166 To 184,176 : Rem h8 Return End Proc '========================================== 'display bet made on racecard Procedure _SBETS 'display bet made on racecard PB$="" : PB2$="" : PB3$="" If PBET(PTURN)=0 Then Pop Proc 'get stake in pb$ If BTYPE(PTURN)=2 or BTYPE(PTURN)=4 Then PB$="ï¿½"+Str$(PSTAKE(PTURN)/2)-" " : Goto GVX PB$="ï¿½"+Str$(PSTAKE(PTURN))-" " GVX: 'get type of bet add to pb$ 'is it win bet? if yes pb2$=horse number hb If BTYPE(PTURN)=1 Then PB$=PB$+" WIN" : PB2$="HORSE "+Str$(HB(PTURN)) : PB3$="" 'is it e/w bet? If BTYPE(PTURN)=2 Then PB$=PB$+" E/W" : PB2$="HORSE "+Str$(HB(PTURN)) : PB3$="" 'sfc? If BTYPE(PTURN)=3 Then PB$=PB$+" SFC" : PB2$="HORSE "+Str$(SF1(PTURN)) : PB3$="HORSE "+Str$(SF2(PTURN)) 'rfc If BTYPE(PTURN)=4 Then PB$=PB$+" RFC" : PB2$="HORSE "+Str$(RF1(PTURN)) : PB3$="HORSE "+Str$(RF2(PTURN)) End Proc '========================================== 'tipster Procedure _TIPSTER Dim GONE(8) Hide On Load Iff "punter_files/tipster.iff",0 Reserve Zone Reserve Zone 3 Set Zone 1,0,4 To 639,65 : Rem DEAD CERT Set Zone 2,0,67 To 639,163 : Rem tv man Set Zone 3,0,165 To 639,270 : Rem form man Show On ' Wait 25 FREDS: K=0 Do If Mouse Key<>0 Then Goto REGSMATE If Key State(69) Then Pop Proc Loop ' REGSMATE: Do K=Mouse Zone If K=<0 Then Goto FREDS If K=1 Then Gosub CERT : Pop Proc If K=2 Then Gosub TVMAN : Pop Proc If K=3 Then Gosub FMAN : Pop Proc Loop ' CERT: 'only give 1 dead cert per season =given Load Iff "punter_files/dead_cert.iff",0 _MOUSE If BHBDC=1 or GIVEN=1 Then Goto BYE Gosub CDIST If OKAY=0 Then Goto BYE BHBDC=1 Add PCASH(PTURN),-100 DC=Rnd(1) If DC<>1 Then DEADCERT=0 : DC=0 If DC=1 FUCKIT: DEADCERT=OKAY End If ' BYE: Paper 7 If DC<>1 Then Locate 0,14 : Centre "SORRY NO DEAD CERT FOR THIS RACE!" : DEADCERT=0 : Goto GAZZA If DC=1 Locate 0,14 : Centre "BOY, HAVE I GOT A TIP FOR YOU!!!" Print : Print : Centre "PUT AS MUCH AS YOU CAN AFFORD ON:" DC$=HOR$(DEADCERT) : DEADCERT$=Mid$(DC$,8,13) Paper 1 : Print : Print : Centre DEADCERT$ GIVEN=1 End If ' GAZZA: While Mouse Key=0 : Wend Return ' TVMAN: Load Iff "punter_files/tv_man.iff",0 _MOUSE Add PCASH(PTURN),-75 'choose a rnd horse as a tip ie: this is a rip off! 'bho means been here once already for this race so show same tip as last time If BHO=1 Then Goto J BHO=1 RR: R1=Rnd(RNNERS) R2=Rnd(RNNERS) If R2=R1 Then Goto RR If R2=0 or R1=0 Then Goto RR RRR: R3=Rnd(RNNERS) If R3=R2 Then Goto RRR If R3=R1 Then Goto RRR If R3=0 Then Goto RRR TV1$=HOR$(R1) : VV1$=Mid$(TV1$,8,13) TV2$=HOR$(R2) : VV2$=Mid$(TV2$,8,13) TV3$=HOR$(R3) : VV3$=Mid$(TV3$,8,13) J: Paper 4 : Pen 0 Locate 0,16 : Centre "THIS WILL BE THE 1-2-3 IN NEXT RACE!" Pen 5 : Locate 0,18 : Centre ""+VV1$ Pen 1 : Locate 0,19 : Centre ""+VV2$ Pen 0 : Locate 0,20 : Centre ""+VV3$ Pen 3 : Print : Print : Centre "THANKYOU FOR YOUR CUSTOM" While Mouse Key=0 : Wend Return ' ' FMAN: Load Iff "punter_files/form_man.iff",0 _MOUSE Add PCASH(PTURN),-25 'if dist is a sprint (di) and runners>4 and draw is low best or low then tell em best drawn horse GDRW=0 : For A=1 To 8 : RATING(A)=0 : Next A Paper 7 : Pen 3 : Locate 0,10 : DWN=8 : ACR=19 If DI=<4 and RNNERS>4 and(DAW$="LOW BEST") or(DI<=4) and(DAW$="LOW (SPRINTS)") Then GDRW=1 If DI=<4 and RNNERS>4 and(DAW$="HIGH BEST") or(DI<=4) and(DAW$="HIGH (SPRINTS)") Then GDRW=RNNERS If GDRW<>0 Then V$=HOR$(GDRW) : VV$=Mid$(V$,8,13) : Locate ACR,DWN : Print VV$+" IS WELL DRAWN" : Inc DWN Inc RATING(GDRW) For A=1 To RNNERS HN=RNNING(A) : Rem get horse number C$=HCHAR$(HN) 'find if likes course C1$=Mid$(C$,2,2) : COUR=Val(C1$) : If MEETING$(COUR)=MEETING$(MEET) Then BESTCOURSE(A)=1 : RATING(A)=RATING(A)+2 'distance D1$=Mid$(C$,5,2) : DUR=Val(D1$) : If DUR=DI Then BESTDIST(A)=1 : RATING(A)=RATING(A)+5 'going G1$=Mid$(C$,8,2) : GOUR=Val(G1$) : If GOUR=GOIN Then BESTGOING(A)=1 : RATING(A)=RATING(A)+3 Next A For A=1 To RNNERS If BESTCOURSE(A)=1 Then V$=HOR$(A) : VV$=Mid$(V$,8,13) : Locate ACR,DWN : Print VV$+" IS SUITED TO THIS TRACK" : Inc DWN If BESTDIST(A)=1 Then V$=HOR$(A) : VV$=Mid$(V$,8,13) : Locate ACR,DWN : Print VV$+" RUNS BEST AT THIS DISTANCE" : Inc DWN If BESTGOING(A)=1 Then V$=HOR$(A) : VV$=Mid$(V$,8,13) : Locate ACR,DWN : Print VV$+" RUNS WELL ON THIS GOING" : Inc DWN Next A For A=1 To RNNERS W$=Mid$(HOR$(A),38,4) STONE$=Left$(W$,1) POUNDS$=Mid$(W$,3,2) STONE=Val(STONE$) POUNDS=Val(POUNDS$) V$=HOR$(A) : VW$=Mid$(V$,8,13) If STONE=8 Then Inc RATING(A) : Locate ACR,DWN : Print VW$+" HAS A SMALL WEIGHT ADVANTAGE" : Inc DWN If STONE=7 Then RATING(A)=RATING(A)+3 : Locate ACR,DWN : Print VW$+" HAS A VERY LARGE WEIGHT ADVANTAGE" : Inc DWN If STONE=9 and POUNDS>0 and POUNDS<10 Then Dec RATING(A) : Locate ACR,DWN : Print VW$+" HAS A SMALL WEIGHT DIS-ADVANTAGE" : Inc DWN If STONE=9 and POUNDS>=10 Then RATING(A)=RATING(A)-4 : Locate ACR,DWN : Print VW$+" HAS A LOT OF WEIGHT TO CARRY" : Inc DWN Next A For A=1 To RNNERS : GONE(A)=1 : Next A : Rem For who has been scored For T=1 To RNNERS : Rem Find highest of non scored horses PP=-1 For A=1 To RNNERS If RATING(A)>PP and GONE(A)=1 : PP=RATING(A) : PPWHO=A : End If Next A P(T)=PPWHO : Rem Record horse in positions array GONE(PPWHO)=0 : Rem Score horse Next T TIP=P(1) If RATING(TIP)<4 Then Print : Print : Pen 5 : Centre " THIS IS A DIFFICULT RACE, I SUGGEST NO BET!." : Goto H V$=HOR$(TIP) : VV$=Mid$(V$,8,13) Print : Print : Pen 1 : Centre " TIP:"+VV$ H: While Mouse Key=0 : Pen Rnd(7) : Locate 0,28 : Centre "PRESS A MOUSE KEY" : Wait 3 : Wend For A=1 To 8 : BESTCOURSE(A)=0 : BESTDIST(A)=0 : BESTGOING(A)=0 : Next A Fade 2 : Wait 30 Show On Return ' ' CDIST: 'this is for dead cert, it returns a horse number in okay that can 'do the distance, therefore not messing form book up by picking a 'sprinter to win a 16f race etc. ' OKAY=0 For A=1 To RNNERS HON=RNNING(A) : Rem get horse number & see if any can do the distance CQ$=HCHAR$(HON) DVX$=Mid$(CQ$,5,2) : DIS=Val(DVX$) : If DIS=DI Then OKAY=A Next A Return End Proc '========================================== 'buy a horse Procedure _AUCTION If HORSESFORSALE=0 Then Cls 0 : Locate 0,12 : Centre "NO HORSES FOR SALE" : Wait 75 : Pop Proc If FIRSTLOOK=1 and HCOUNT=0 Then Cls 0 : Locate 0,12 : Centre "NO MORE HORSES FOR SALE" : Wait 75 : Pop Proc NO=0 If PTURN=1 and P1OWNS>=24 Then NO=1 If PTURN=2 and P2OWNS>=24 Then NO=1 If PTURN=3 and P3OWNS>=24 Then NO=1 If PTURN=4 and P4OWNS>=24 Then NO=1 If NO=1 Then Cls 0 : Locate 0,12 : Centre "NOBODY WANTS TO SELL TO YOU" : Wait 75 : Pop Proc Limit Mouse : Show On Screen Open 0,640,256,8,Hires Flash Off : Curs Off : Paper 0 : Cls 0 Reserve Zone Reserve Zone 25 _MOUSE Flash 2,"(fff,5)(222,5)" 'set up some horses for sale If FIRSTLOOK=1 Then Goto FUCK HSOLD=P1OWNS+P2OWNS+P3OWNS+P4OWNS If HSOLD=0 Then HSOLD=20 : Rem rnd amount for now For A=1 To 25 : TEMP(A)=0 : Next A HERR=0 APS: HFS=Rnd(HSOLD) : Rem horses for sale If HFS>99-HSOLD Then Goto APS If HFS=0 Then HFS=1 If HFS>20 Then HFS=20 HCOUNT=HFS 'HFS=24 : Rem============for testing HXX: For A=1 To HFS Inc FCOUNT : If FCOUNT>100 Then FCOUNT=1 DFL: If FCOUNT>100 Then FCOUNT=1 For B=1 To HFS If FCOUNT=TEMP(B) Then HERR=1 If OWN1(FCOUNT)=1 Then HERR=1 : Rem does anyone already own it? If OWN2(FCOUNT)=1 Then HERR=1 If OWN3(FCOUNT)=1 Then HERR=1 If OWN4(FCOUNT)=1 Then HERR=1 Next B If HERR=1 Then Inc FCOUNT : HERR=0 : Goto DFL TEMP(A)=FCOUNT HLIST(A)=FCOUNT : Rem hlist(a)=stote thehorse numbers Next A FIRSTLOOK=1 FUCK: B=16 : C=22 : For A=1 To HFS Set Zone A,24,B+8 To 584,C+8 'Box 24,B+8 To 584,C+8 Add B,8 : Add C,8 Next A Set Zone HFS+1,0,0 To 64,8 ' 'work out value of each horse: ' 4yo=50000 .... age(N) '5yo=40000 '6yo=30000 'add 1000 for each win ....WINS(N) 'subtract 100 for each loss...runs-wins=losses 'add 10% of total prizemoney won by that horse ....pm(N)/10 ' For A=1 To HFS XI=HLIST(A) If AGE(XI)=4 Then VU(A)=50000 If AGE(XI)=5 Then VU(A)=40000 If AGE(XI)=6 Then VU(A)=30000 W=WINS(XI) : W=W*1000 : Add VU(A),W R=RNS(XI)-WINS(XI) : Add VU(A),-R*100 P=PM(XI)/10 : Add VU(A),P Next A Home : Pen 2 : Inverse On : Print "EXIT" : Inverse Off : Pen 1 : Inverse On : Home : Centre "HORSES CURRENTLY FOR SALE" : Inverse Off Pen 7 : Locate 3,2 : Under On : Print "LAST 6 NAME TRAINER AGE/WGHT WINS/RUNS PRIZE VALUE " Pen 5 Under Off SZX: Pen 5 For A=1 To HFS XI=HLIST(A) If XI=0 Then Locate 3,A+2 : Print Space$(76) : Goto HAZ Locate 3,A+2 : Print H$(XI);" ";WINS(XI);" /";RNS(XI) Locate 56,A+2 : Print "ï¿½";PM(XI) Locate 66,A+2 : Print "ï¿½";VU(A) HAZ: Next A Pen 1 : Locate 3,29 : Print "PLAYER ";PTURN;": ï¿½";PCASH(PTURN);" " FREDD: While Mouse Key=0 : Wend K=Mouse Zone If K=HFS+1 Then Pop Proc If HLIST(K)=0 Then Goto FREDD If K>0 Then Gosub BUY : Goto SZX Goto FREDD BUY: Pen 2 XI=HLIST(K) : B$=Mid$(H$(XI),8,13) If PTURN=1 and P1OWNS>=24 Then Locate 30,29 : Print "NOBODY WANTS TO SELL TO YOU" : Wait 75 : Gosub AQP : Return If PTURN=2 and P2OWNS>=24 Then Locate 30,29 : Print "NOBODY WANTS TO SELL TO YOU" : Wait 75 : Gosub AQP : Return If PTURN=3 and P3OWNS>=24 Then Locate 30,29 : Print "NOBODY WANTS TO SELL TO YOU" : Wait 75 : Gosub AQP : Return If PTURN=4 and P4OWNS>=24 Then Locate 30,29 : Print "NOBODY WANTS TO SELL TO YOU" : Wait 75 : Gosub AQP : Return If PCASH(PTURN)<VU(K) Then Locate 30,29 : Print "YOU CAN'T AFFORD IT" : Wait 75 : Gosub AQP : Return If OWN1(XI)=1 or OWN2(XI)=1 or OWN3(XI)=1 or OWN4(XI)=1 Then Locate 30,29 : Print "HORSE NOT FOR SALE" : Wait 75 : Gosub AQP : Return Locate 30,29 : Print "BUY ";B$;" PRESS Y/N?" Do Clear Key K$="" : While K$="" : K$=Inkey$ : Wend K$=Upper$(K$) If K$="N" Then Gosub AQP : Return If K$="Y" Then Gosub OWN : Locate 30,29 : HLIST(K)=0 : Print "SALE CONFIRMED: " : Wait 50 : Dec HCOUNT : PCASH(PTURN)=PCASH(PTURN)-VU(K) : Gosub AQP : Return Loop AQP: Locate 30,29 : Print Space$(45) Pen 1 : Locate 3,29 : Print "PLAYER ";PTURN;": ï¿½";PCASH(PTURN);" " Return OWN: XI=HLIST(K) If PTURN=1 Then OWN1(XI)=1 : Inc P1OWNS If PTURN=2 Then OWN2(XI)=1 : Inc P2OWNS If PTURN=3 Then OWN3(XI)=1 : Inc P3OWNS If PTURN=4 Then OWN4(XI)=1 : Inc P4OWNS Dec HORSESFORSALE Return End Proc '========================================== 'sell a horse Procedure _SELL If JUSTCHECKING=1 Then Goto FZA HFOS=0 Limit Mouse : Show On Screen Open 0,640,256,8,Hires Flash Off : Curs Off : Paper 0 : Cls 0 Flash 2,"(fff,5)(222,5)" _MOUSE For A=1 To 27 : SLIST(A)=0 : Next A FZA: If PTURN<>1 Then Goto E B=0 : For A=1 To 100 If OWN1(A)=1 Then Inc B : SLIST(B)=A Next A : HFOS=B : Goto EEEE E: If PTURN<>2 Then Goto EE B=0 : For A=1 To 100 If OWN2(A)=1 Then Inc B : SLIST(B)=A Next A : HFOS=B : Goto EEEE EE: If PTURN><3 Then Goto EEE B=0 : For A=1 To 100 If OWN3(A)=1 Then Inc B : SLIST(B)=A Next A : HFOS=B : Goto EEEE EEE: If PTURN<>4 Then Goto EEEE B=0 : For A=1 To 100 If OWN4(A)=1 Then Inc B : SLIST(B)=A Next A : HFOS=B EEEE: If HFOS<=0 and JUSTCHECKING=0 Then Locate 0,12 : Centre "YOU DON'T OWN ANY HORSES" : Wait 75 : Pop Proc If JUSTCHECKING=1 Then Goto HMM Reserve Zone Reserve Zone HFOS+2 B=16 : C=22 : For A=1 To HFOS Set Zone A,24,B+8 To 584,C+8 'Box 24,B+8 To 584,C+8 Add B,8 : Add C,8 Next A Set Zone HFOS+1,0,0 To 64,8 : Rem exit Set Zone HFOS+2,268,230 To 368,240 : Rem insure 'work out value of each horse: ' 4yo=50000 .... age(N) '5yo=40000 '6yo=30000 'add 1000 for each win ....WINS(N) 'subtract 100 for each loss...runs-wins=losses 'add 10% of total prizemoney won by that horse ....pm(N)/10 ' HMM: For A=1 To HFOS XI=SLIST(A) If AGE(XI)=4 Then VU(A)=50000 If AGE(XI)=5 Then VU(A)=40000 If AGE(XI)=6 Then VU(A)=30000 W=WINS(XI) : W=W*1000 : Add VU(A),W R=RNS(XI)-WINS(XI) : Add VU(A),-R*100 P=PM(XI)/10 : Add VU(A),P Next A If JUSTCHECKING=1 Then Goto GREAT Home : Pen 2 : Inverse On : Print "EXIT" : Inverse Off Pen 1 : Home : Inverse On : Centre "PLAYER "+Str$(PTURN)+" HORSE(S) OWNED " : Inverse Off Pen 7 : Locate 3,2 : Under On : Print "LAST 6 NAME TRAINER AGE/WGHT WINS/RUNS PRIZE VALUE " Pen 5 Under Off SSSS: Pen 5 GREAT: For A=1 To HFOS XI=SLIST(A) If XI=0 Then Locate 3,A+2 : Print Space$(76) : Goto FUU 'Gosub CHINS If JUSTCHECKING=1 Then Goto BOLL Locate 3,A+2 : Print H$(XI);" ";WINS(XI);" /";RNS(XI) Locate 56,A+2 : Print "ï¿½";PM(XI) Locate 66,A+2 : Print "ï¿½";VU(A) BOLL: TUT=TUT+VU(A) If PTURN=1 Then P1STOCK=TUT If PTURN=2 Then P2STOCK=TUT If PTURN=3 Then P3STOCK=TUT If PTURN=4 Then P4STOCK=TUT FUU: Next A If JUSTCHECKING=1 Then JUSTCHECKING=0 : Pop Proc GAZZA: Paper 0 Colour 6,$4A Pen 1 : Locate 3,29 : Print "PLAYER ";PTURN;": ï¿½";PCASH(PTURN) Pen 4 : Locate 54,29 : Print "TOTAL VALUE=ï¿½";TUT;" " 'Pen 6 : Paper 7 : Locate 34,28 : Print " CALL VET " 'Pen 6 : Paper 5 : Locate 34,29 : Print "INSURE HORSE" Paper 0 Wait 10 : K=0 FREDD: While Mouse Key=0 : Wend K=Mouse Zone 'Locate 0,30 : Print "k=";K;" " If K=0 or K>27 Then Goto FREDD 'If K=HFOS+2 and(K<28) Then Locate 27,29 : Print "CLICK ON HORSE TO INSURE" : Gosub GIT : Goto GAZZA If K=HFOS+1 Then Pop Proc If SLIST(K)=0 Then Goto FREDD If K>0 and SLIST(K)>0 Then Gosub SELL : If NO=1 Then Goto GAZZA : Else Goto SSSS Goto FREDD 'get horse to insure 'GIT: 'While Mouse Key=0 : Wend 'K=Mouse Zone ''Locate 0,25 : Print K;" " 'If K>0 and SLIST(K)>0 Then Gosub INSURE : Return 'Goto GIT 'Return SELL: Pen 2 XI=SLIST(K) : B$=Mid$(H$(XI),8,13) Locate 24,30 : Print "SELL ";B$;" PRESS Y/N?" NO=0 Do Clear Key K$="" : While K$="" : K$=Inkey$ : Wend K$=Upper$(K$) If K$="N" Then Gosub AQP : NO=1 : Return If K$="Y" Then Gosub NOWN : Locate 24,30 : Print " SALE CONFIRMED " : Wait 50 : PCASH(PTURN)=PCASH(PTURN)+VU(K) : Gosub AQP : Return Loop 'INSURE: 'Locate 23,29 : Print Space$(31) 'XI=SLIST(K) : B$=Mid$(H$(XI),8,13) 'Locate 16,30 : Print "TO INSURE ";B$;" COSTS ï¿½";VU(K)/20;" PRESS Y/N?" 'Do 'Clear Key 'K$="" : While K$="" : K$=Inkey$ : Wend 'K$=Upper$(K$) 'If K$="N" Then Gosub AQP : Return 'If K$="Y" Then Gosub INSCH : Return 'Loop 'Return 'INSCH: 'check here if horse already insured 'Locate 16,30 : Print Space$(60) 'If PCASH(PTURN)<VU(K)/20 Then Locate 28,30 : Print "NOT ENOUGH CASH!" : Wait 50 : Locate 24,30 : Print Space$(55) : Return 'CANT=0 : Gosub MAY : If CANT=1 Then Locate 28,30 : Print "HORSE ALREADY INSURED" : Wait 50 : Locate 24,30 : Print Space$(55) : Return 'If PTURN=1 Then HI1(K)=1 : A=K : Gosub CHINS : Add PCASH(PTURN),-VU(K)/20 : Locate 25,30 : Print "HORSE INSURED FOR ONE SEASON" : Gosub INSURED : Wait 50 : Locate 24,30 : Print Space$(55) : Return 'If PTURN=2 Then HI2(K)=1 : A=K : Gosub CHINS : Add PCASH(PTURN),-VU(K)/20 : Locate 25,30 : Print "HORSE INSURED FOR ONE SEASON" : Gosub INSURED : Wait 50 : Locate 24,30 : Print Space$(55) : Return 'If PTURN=3 Then HI3(K)=1 : A=K : Gosub CHINS : Add PCASH(PTURN),-VU(K)/20 : Locate 25,30 : Print "HORSE INSURED FOR ONE SEASON" : Gosub INSURED : Wait 50 : Locate 24,30 : Print Space$(55) : Return 'If PTURN=4 Then HI4(K)=1 : A=K : Gosub CHINS : Add PCASH(PTURN),-VU(K)/20 : Locate 25,30 : Print "HORSE INSURED FOR ONE SEASON" : Gosub INSURED : Wait 50 : Locate 24,30 : Print Space$(55) : Return 'Return AQP: Locate 0,30 : Print Space$(79) Pen 1 : Locate 3,29 : Print "PLAYER ";PTURN;": ï¿½";PCASH(PTURN) 'Pen 6 : Paper 5 : Locate 34,29 : Print "INSURE HORSE" Paper 0 Return NOWN: XI=SLIST(K) : SLIST(K)=0 If PTURN=1 Then OWN1(XI)=0 : Dec P1OWNS If PTURN=2 Then OWN2(XI)=0 : Dec P2OWNS If PTURN=3 Then OWN3(XI)=0 : Dec P3OWNS If PTURN=4 Then OWN4(XI)=0 : Dec P4OWNS Inc HORSESFORSALE TUT=0 Return 'INSURED: 'XI=SLIST(K) 'If PTURN=1 Then INS1(XI)=1 'If PTURN=2 Then INS2(XI)=1 'If PTURN=3 Then INS3(XI)=1 'If PTURN=4 Then INS4(XI)=1 'Return 'MAY: 'XI=SLIST(K) 'If PTURN=1 and INS1(XI)=1 Then CANT=1 'If PTURN=2 and INS2(XI)=1 Then CANT=1 'If PTURN=3 and INS3(XI)=1 Then CANT=1 'If PTURN=4 and INS4(XI)=1 Then CANT=1 'Return 'CHINS: 'Pen 6 'If PTURN=1 and HI1(A)=1 Then Locate 78,A+2 : Print "I" 'If PTURN=2 and HI2(A)=1 Then Locate 78,A+2 : Print "I" 'If PTURN=3 and HI3(A)=1 Then Locate 78,A+2 : Print "I" 'If PTURN=4 and HI4(A)=1 Then Locate 78,A+2 : Print "I" 'Pen 5 'Return End Proc '========================================== 'display all bets made before race Procedure _DISPBETS If PBET(1)=0 and PBET(2)=0 and(PBET(3)=0) and(PBET(4)=0) Then Pop Proc Screen Open 0,320,255,32,Lowres Flash Off : Curs Off : Hide : Paper 0 : Pen 6 : Cls 0 Get Sprite Palette 'player 1's bet and horse Colour 0,$30 If PBET(1)=1 PTURN=1 : Gosub GCHQ _SBETS Locate 6,6 : Print "PLAYER 1" : Locate 6,8 : Print PB$ : Locate 6,10 : Print PB2$ End If 'NO BET P1 If PBET(1)=0 Pen 1 Locate 6,6 : Print "PLAYER 1" : Locate 6,8 : Print "NO BET" End If If BTYPE(1)=0 Then Goto GGFP If BTYPE(1)<3 Then Paste Bob 50,0,IM If BTYPE(1)>2 Then Locate 6,12 : Print PB3$ If BTYPE(1)=3 Then Gosub GCHQ0 : Paste Bob 50,0,IM : Gosub GCHQ2 : Paste Bob 30,0,IM If BTYPE(1)=4 Then Gosub GCHQ0 : Paste Bob 50,0,IM : Gosub GCHQ2 : Paste Bob 30,0,IM GGFP: 'player 2's bet and horse If PBET(2)=1 PTURN=2 : Gosub GCHQ _SBETS Pen 6 Locate 22,6 : Print "PLAYER 2" : Locate 22,8 : Print PB$ : Locate 22,10 : Print PB2$ : End If 'NO BET P2 If PBET(2)=0 Pen 1 Locate 22,6 : Print "PLAYER 2" : Locate 22,8 : Print "NO BET" End If If BTYPE(2)=0 Then Goto APQW If BTYPE(2)<3 Then Paste Bob 177,0,IM If BTYPE(2)>2 Then Locate 22,12 : Print PB3$ If BTYPE(2)=3 Then Gosub GCHQ0 : Paste Bob 177,0,IM : Gosub GCHQ2 : Paste Bob 157,0,IM If BTYPE(2)=4 Then Gosub GCHQ0 : Paste Bob 177,0,IM : Gosub GCHQ2 : Paste Bob 157,0,IM APQW: 'player 3's bet and horse If PBET(3)=1 PTURN=3 : Gosub GCHQ _SBETS Pen 6 Locate 6,21 : Print "PLAYER 3" : Locate 6,23 : Print PB$ : Locate 6,25 : Print PB2$ : End If 'NO BET P3 If PBET(3)=0 Pen 1 Locate 6,21 : Print "PLAYER 3" : Locate 6,23 : Print "NO BET" End If If BTYPE(3)=0 Then Goto XXHH If BTYPE(3)>2 Then Locate 6,27 : Print PB3$ If BTYPE(3)<3 Then Paste Bob 50,120,IM If BTYPE(3)=3 Then Gosub GCHQ0 : Paste Bob 50,120,IM : Gosub GCHQ2 : Paste Bob 30,120,IM If BTYPE(3)=4 Then Gosub GCHQ0 : Paste Bob 50,120,IM : Gosub GCHQ2 : Paste Bob 30,120,IM XXHH: 'player 4's bet and horse If PBET(4)=1 PTURN=4 : Gosub GCHQ Pen 6 _SBETS Pen 5 Locate 22,21 : Print "PLAYER 4" : Locate 22,23 : Print PB$ : Locate 22,25 : Print PB2$ : End If 'NO BET P4 If PBET(4)=0 Pen 1 Locate 22,21 : Print "PLAYER 4" : Locate 22,23 : Print "NO BET" End If If BTYPE(4)=0 Then Goto TZM If BTYPE(4)<3 Then Paste Bob 177,120,IM If BTYPE(4)>2 Then Locate 22,27 : Print PB3$ If BTYPE(4)=3 Then Gosub GCHQ0 : Paste Bob 177,120,IM : Gosub GCHQ2 : Paste Bob 157,120,IM If BTYPE(4)=4 Then Gosub GCHQ0 : Paste Bob 177,120,IM : Gosub GCHQ2 : Paste Bob 157,120,IM TZM: While Mouse Key=0 : Wend Pop Proc GCHQ: If HB(PTURN)=1 Then IM=1 If HB(PTURN)=2 Then IM=5 If HB(PTURN)=3 Then IM=9 If HB(PTURN)=4 Then IM=13 If HB(PTURN)=5 Then IM=1 If HB(PTURN)=6 Then IM=5 If HB(PTURN)=7 Then IM=9 If HB(PTURN)=8 Then IM=13 Return GCHQ2: If SF2(PTURN)=1 or RF2(PTURN)=1 Then IM=1 If SF2(PTURN)=2 or RF2(PTURN)=2 Then IM=5 If SF2(PTURN)=3 or RF2(PTURN)=3 Then IM=9 If SF2(PTURN)=4 or RF2(PTURN)=4 Then IM=13 If SF2(PTURN)=5 or RF2(PTURN)=5 Then IM=1 If SF2(PTURN)=6 or RF2(PTURN)=6 Then IM=5 If SF2(PTURN)=7 or RF2(PTURN)=7 Then IM=9 If SF2(PTURN)=8 or RF2(PTURN)=8 Then IM=13 Return GCHQ0: If SF1(PTURN)=1 or RF1(PTURN)=1 Then IM=1 If SF1(PTURN)=2 or RF1(PTURN)=2 Then IM=5 If SF1(PTURN)=3 or RF1(PTURN)=3 Then IM=9 If SF1(PTURN)=4 or RF1(PTURN)=4 Then IM=13 If SF1(PTURN)=5 or RF1(PTURN)=5 Then IM=1 If SF1(PTURN)=6 or RF1(PTURN)=6 Then IM=5 If SF1(PTURN)=7 or RF1(PTURN)=7 Then IM=9 If SF1(PTURN)=8 or RF1(PTURN)=8 Then IM=13 Return End Proc '========================================== 'show the race graphically ' Procedure _RACE ' BHO=0 Fade 3 Load Iff "punter_files/key.iff",0 Clear Key Do M=Mouse Key If M=1 Then QUICKRACE=0 : Goto SACKOFSHIT If Inkey$=" " Then QUICKRACE=1 : Goto SACKOFSHIT Loop SACKOFSHIT: Screen Close 0 ' Load "punter_files/track_bot.abk",3 Unpack 3 To 3 Screen Hide 3 Screen Display 3,120,250,, Channel 14 To Screen Offset 3 Amal 14,"X:Let X=0;Loop:Let X=X+2;Pause; If X>318 Jump X; Jump Loop" Erase 3 ' Load "punter_files/samples.abk",3 A$="" : B$="" : C$="" : D$="" : E$="" : F$="" : G$="" : H$="" ' '*the top scrolling screen Unpack 14 To 1 Screen Hide 1 Screen Display 1,112,40,, ' '* scrolling rails Unpack 8 To 2 Screen Hide 2 Screen Display 2,120,62,, Channel 15 To Screen Offset 2 Amal 15,"X:Let X=0;Loop:Let X=X+1;Pause; If X>304 Jump X; Jump Loop" ' Amal On ' Screen Open 0,370,190,32,Lowres Screen Display 0,100,80,, Double Buffer Get Sprite Palette Flash Off Curs Off Colour 0,$30 Colour Back 0 Hide : Cls 0 Autoback 0 Update Off Screen To Front 3 Screen Show 3 Screen Show 2 Screen Show 1 Dim X(8) : Dim D(8) '*x()= x coord of horses d(8) y coord ' 'Dim P(8) : Rem These two help display the positions Dim GONE(8) For A=1 To 8 : P(A)=0 : Next A ' ' For A=1 To RNNERS : X(A)=0 : Next A : Rem *clear x coords For A=1 To RNNERS : D(A)=Z : Add Z,20 : Next A : Rem* set y positions For A=1 To RNNERS Channel A To Bob A Channel 1 To Bob 1 A$="Anim 0,(1,6)(2,6)(3,6)(4,6);" Bob 1,100,10,1 Amal 1,A$ Amal On '*the animations A$="Anim 0,(1,6)(2,6)(3,6)(4,6);" B$="Anim 0,(5,6)(6,6)(7,6)(8,6);" C$="Anim 0,(9,6)(10,6)(11,6)(12,6);" D$="Anim 0,(13,6)(14,6)(15,6)(16,6);" E$="Anim 0,(1,6)(2,6)(3,6)(4,6);" F$="Anim 0,(5,6)(6,6)(7,6)(8,6);" G$="Anim 0,(9,6)(10,6)(11,6)(12,6);" H$="Anim 0,(13,6)(14,6)(15,6)(16,6)" Bob A,X(A),D(A),A Next A Bob 1,X(1),D(1),1 Amal 1,A$ Bob 2,X(2),D(2),5 Amal 2,B$ Bob 3,X(3),D(3),9 Amal 3,C$ Bob 4,X(4),D(4),13 Amal 4,D$ If RNNERS>=5 Bob 5,X(5),D(5),1 Amal 5,E$ End If If RNNERS>=6 Bob 6,X(6),D(6),5 Amal 6,F$ End If If RNNERS>=7 Bob 7,X(7),D(7),9 Amal 7,G$ End If If RNNERS>=8 Bob 8,X(8),D(8),13 Amal 8,H$ End If Amal On '* THE RACE '===============================start race========================= Randomize Timer Hide Screen 1 For A=1 To RNNERS : SPEED=SPEED+ODD(A) : IRO(A)=ODD(A) : Next A '======================== 'this is where we tamper with the odds so they dont all finish in odds order 'just do a randomly run race once in a while If Rnd(55)=1 Then For A=1 To RNNERS : IRO(A)=Rnd(6)+1 : Next A : Goto FR 'run as odds sugesst once in a while If Rnd(10)=1 Then For A=1 To RNNERS : IRO(A)=ODD(A) : Next : Goto FR 'if above two fail then tweak some form For A=1 To RNNERS HN=RNNING(A) : Rem get horse number C$=HCHAR$(HN) WD=0 : WG=1 'is race distance same as horses best distance? D1$=Mid$(C$,5,2) : DUR=Val(D1$) : II=IRO(A) : If DUR=DI Then II=II/2 : IRO(A)=II : Else WD=1 'check going G1$=Mid$(C$,8,2) : GOUR=Val(G1$) : II=IRO(A) : If GOUR=GOIN Then II=II-3 : IRO(A)=II : Else WG=1 : II=II+3 : IRO(A)=II If IRO(A)<1 Then IRO(A)=1 'if not right dist +1 or -1 then make as if a 10/1 shot ie: lose If WD=1 and DUR>DI+1 or(DUR<DI+1) Then IRO(A)=10 'make as if a 3/1 shot minimum if wrong going 'find if likes course C1$=Mid$(C$,2,2) : COUR=Val(C1$) : If MEETING$(COUR)=MEETING$(MEET) Then Dec IRO(A) If WG=1 and IRO(A)<4 Then IRO(A)=3 'if jockey of each horse has good win ratio cut in race odds If JWINS(A)>=JRIDE(A)/4 Then Dec IRO(A) If JWINS(A)>=JRIDE(A)/2 Then Add IRO(A),-2 Next A 'do draw adv If DI=<4 and RNNERS>4 and(DAW$="LOW BEST") or(DI<=4) and(DAW$="LOW (SPRINTS)") Then Dec IRO(1) If DI=<4 and RNNERS>4 and(DAW$="HIGH BEST") or(DI<=4) and(DAW$="HIGH (SPRINTS)") Then Dec IRO(RNNERS) 'checks weights For A=1 To RNNERS : HN=RNNING(A) : VV$=WEIGHT$(HN) : STX$=Left$(VV$,1) : PO$=Mid$(VV$,3,2) ST=Val(STX$) : POU=Val(PO$) If ST=8 Then Dec IRO(A) If ST=7 Then Add IRO(A),-2 If ST=9 and POU>0 and POU<5 Then Inc IRO(A) If ST=9 and POU=>4 and POU<10 Then Add IRO(A),2 If ST=9 and POU>=10 Then Add IRO(A),3 Next A FR: If DEADCERT>0 and Rnd(25)<>1 Then IRO(DEADCERT)=2 For A=1 To RNNERS If IRO(A)<1 Then IRO(A)=1 SPEED=SPEED+IRO(A) Next A '========= Screen 0 TRAIN=0 Sam Bank 3 Sam Loop On Sam Play 1 If QUICKRACE=1 Then Centre "QUICK RACE ACTIVE" Do KK$=Inkey$ Screen Swap : Wait Vbl Bob Clear If KK$="f" Then Gosub FZ If KK$="b" Then Gosub SEEBETS KK$=Inkey$ For A=1 To RNNERS If Rnd(IRO(A))=0 Inc X(A) Move X A,"(1,1,2)" : Move On(A) End If '****bad luck in running back 1* If KK$="b" Then Gosub SEEBETS If KK$="f" Then Gosub FZ KK$=Inkey$ If Rnd(100)=1 Dec X(A) Move X A,"(1,-1,2)" : Move On(A) End If If SPEED>35 and Rnd(2)=0 Then Inc X(A) : Move X A,"(1,1,2)" : Move On(A) ' '==================if having a quick race move each horse an extra move If QUICKRACE=1 and IRO(A)<Rnd(9)+1 Inc X(A) : Move X A,"(1,1,4)" : Move On(A) End If If KK$="b" Then Gosub SEEBETS If KK$="f" Then Gosub FZ KK$=Inkey$ ' MG: If X Bob(A)>=300 : Rem *if x coord is>=300 then jump to results Goto RACEOVER End If If KK$="f" Then Gosub FZ If KK$="b" Then Gosub SEEBETS Next A If KK$="f" Then Gosub FZ If KK$="b" Then Gosub SEEBETS Bob Draw Wait Vbl If KK$="f" Then Gosub FZ If KK$="b" Then Gosub SEEBETS Loop '----------------------------- --------------------------- RACEOVER: Sam Stop Amal Off : Move Off 'Screen Close 3 'Screen Close 2 'Screen Close 1 Wait Vbl Screen 0 : Colour 0,$14 'Cls 0 ' For A=1 To RNNERS : XB(A)=X Bob(A) : Next A POSITIONS: For A=1 To RNNERS : GONE(A)=1 : Next A : Rem For who has been scored For T=1 To RNNERS : Rem Find highest of non scored horses PP=-1 For A=1 To RNNERS If X Bob(A)>PP and GONE(A)=1 : PP=X Bob(A) : PPWHO=A : End If Next A P(T)=PPWHO : Rem Record horse in positions array GONE(PPWHO)=0 : Rem Score horse Next T ' POSITIONSTABLE: 'get dist between each horse for photo purposes For A=1 To RNNERS : X=P(A) : LTHS(A)=XB(X) : Next A 'check for photo PHOTO=0 D1=LTHS(1)-LTHS(2) : D2=LTHS(2)-LTHS(3) : D3=LTHS(3)-LTHS(4) If D1<=4 Then PHOTO=1 : P$="1st AND 2nd PLACES" If D2<=4 Then PHOTO=1 : Q$="2nd AND 3rd PLACES" If D3<=4 Then PHOTO=1 : R$="3rd AND 4th PLACES" If PHOTO=1 Then Cls 0 : Curs Off : Locate 17,1 : Print "PHOTO FINISH" : Locate 14,3 : Print P$ : Locate 14,5 : Print Q$ : Locate 14,7 : Print R$ : Screen Swap : Wait Vbl : Wait Rnd(100)+75 Wait 50 : For A=1 To RNNERS : Bob Off(A) : Next A : Bob Clear 'Screen 2 : Colour 0,$123 : Cls 0 : Screen Hide 'Screen 1 : Colour 0,$123 : Cls 0 : Screen Hide Curs Off : Paper 0 : Pen 1 : Cls 0 : Locate 3,0 T$="RESULT OF RACE"+Str$(RACE) A=Len(T$) Text Screen Width/2-(A*8/2),10,T$ Locate 11,4 : Print "POS HORSE ODDS " 'INJURED=0 'If Rnd(1)=1 and TINJURIES<3 Then INJURED=1 : Inc TINJURIES : ZZ=RNNING(8) : INJURY(ZZ)=1 : Flash 3,"(fff,5)(222,5)" For A=1 To RNNERS Locate 11,A+5 : Print POS$(A) X=P(A) : Z$=HOR$(X) : HH$=Mid$(Z$,8,13) Locate 15,5+A : Print P(A);"."+HH$;" ";ODD(X);"/1" IH$=HH$ L=Len(IH$) For C=1 To Len(IH$) If Right$(HH$,1)=" " Then I$=IS$+Mid$(IH$,1,L-1) : HH$=I$ Next C 'If INJURED=1 and A=RNNERS 'Locate 18,19 : Pen 3 : Centre HH$ 'Locate 12,20 : Centre "INJURED DURING RACE" 'End If Next A B=1 T$="PRESS A MOUSE KEY" A=Len(T$) Text Screen Width/2-(A*8/2),180,T$ 'inc jock wins For A=1 To 8 If P(1)=JJJ(A) Then D=JTEMP(A) : Inc JWINS(D) JJJ(A)=0 Next A 'inc jrides For A=1 To 25 If JR(A)=1 Then JR(A)=0 : Inc JRIDE(A) Next A _FORMBOOK _FORM DEADCERT=0 BHBDC=0 DC=0 Screen Swap : Wait Vbl Wait 25 While Mouse Key=0 : Wend Flash Off : Fade 4 : Wait 60 : Cls 0 : Pen 1 Screen Close 1 Screen Close 2 Screen Close 3 Sam Loop Off _PAYOUT Erase 3 Pop Proc MOOV: Inc X(A) Move X A,"(1,1,2)" : Move On(A) Return ' ' SEEBETS: 'show bets in race Screen 1 Flash Off : Curs Off : Home : Paper 11 : Pen 0 NB=0 For A=1 To PLYRS PTURN=A _SBETS XX$="" VV$=Right$(PB$,3) If PB3$<>"" Then XX$=" & "+Right$(PB3$,1) WW$=Right$(PB2$,1) Pen 0 : If A=1 and PBET(A)>0 Then B1$="P1 "+VV$+" "+WW$+XX$ : Locate 12,0 : Print B1$ Pen 14 : If A=2 and PBET(A)>0 Then B2$="P2 "+VV$+" "+WW$+XX$ : Locate 28,0 : Print B2$ Pen 5 : If A=3 and PBET(A)>0 Then B3$="P3 "+VV$+" "+WW$+XX$ : Locate 44,0 : Print B3$ Pen 6 : If A=4 and PBET(A)>0 Then B4$="P4 "+VV$+" "+WW$+XX$ : Locate 60,0 : Print B4$ If PBET(A)=0 Then Inc NB Next A If NB=PLYRS Then Pen 0 : Locate 8,0 : Print "NO BETS MADE" Clear Key KK$=Inkey$ Return ' 'freeze race FZ: '======= Clear Key : Sam Stop Amal Freeze : Wait 40 : Wait Key Sam Play 1 : Amal On Clear Key : KK$=Inkey$ Return End Proc '========================================== 'pay out winnings on bets Procedure _PAYOUT Wait Vbl Pen 7 L=0 For A=1 To PLYRS If HADLOAN(A)>0 Then L=1 Next A SOMERUN=0 If P1HR=1 or P2HR=1 or P3HR=1 or P4HR=1 Then SOMERUN=1 W=20 : NOUT=0 If L=1 or SOMERUN=1 NOUT=1 Screen Open 0,640,255,8,Hires : Curs Off : Flash Off : Hide : Paper 0 : Cls 0 A$="CPU" Home : Pen 1 : Inverse On : Locate 30,0 : Print "PRIZE MONEY" : Inverse Off Locate 18,3 : Pen 4 : Print "1st Place:" : Locate 18,5 : Pen 5 : Print "2nd Place:" : Locate 18,7 : Pen 6 : Print "3rd Place:" Pen 2 Locate 30,3 : Print A$ Locate 30,5 : Print A$ Locate 30,7 : Print A$ End If If SOMERUN=1 Pen 3 : Locate 0,29 : Centre "PRESS A MOUSE KEY" End If If P1HR<>1 Then Goto YZ Pen 7 : A$="PLAYER 1 WINS ï¿½" CHEST=W For A=1 To 3 P=P(A) STD=RNNING(P) If OWN1(STD)=1 and A=1 Then Add PCASH(1),Int(PRIZEMONEY/2) : Locate 30,3 : Print A$+Str$(Int(PRIZEMONEY/2)) : Inc W If OWN1(STD)=1 and A=2 Then Add PCASH(1),Int(PRIZEMONEY/3) : Locate 30,5 : Print A$+Str$(Int(PRIZEMONEY/3)) : Inc W If OWN1(STD)=1 and A=3 Then Add PCASH(1),Int(PRIZEMONEY/5) : Locate 30,7 : Print A$+Str$(Int(PRIZEMONEY/5)) : Inc W Next A YZ: If P2HR<>1 Then Goto YZ2 Pen 2 : A$="PLAYER 2 WINS ï¿½" For A=1 To 3 P=P(A) STD=RNNING(P) If OWN2(STD)=1 and A=1 Then Add PCASH(2),Int(PRIZEMONEY/2) : Locate 30,3 : Print A$+Str$(Int(PRIZEMONEY/2)) : Inc W If OWN2(STD)=1 and A=2 Then Add PCASH(2),Int(PRIZEMONEY/3) : Locate 30,5 : Print A$+Str$(Int(PRIZEMONEY/3)) : Inc W If OWN2(STD)=1 and A=3 Then Add PCASH(2),Int(PRIZEMONEY/5) : Locate 30,7 : Print A$+Str$(Int(PRIZEMONEY/5)) : Inc W Next A YZ2: If P3HR<>1 Then Goto YZ3 Pen 5 : A$="PLAYER 3 WINS ï¿½" For A=1 To 3 P=P(A) STD=RNNING(P) If OWN3(STD)=1 and A=1 Then Add PCASH(3),Int(PRIZEMONEY/2) : Locate 30,3 : Print A$+Str$(Int(PRIZEMONEY/2)) : Inc W If OWN3(STD)=1 and A=2 Then Add PCASH(3),Int(PRIZEMONEY/3) : Locate 30,5 : Print A$+Str$(Int(PRIZEMONEY/3)) : Inc W If OWN3(STD)=1 and A=3 Then Add PCASH(3),Int(PRIZEMONEY/5) : Locate 30,7 : Print A$+Str$(Int(PRIZEMONEY/5)) : Inc W Next A YZ3: If P4HR<>1 Then Goto YZ4 Pen 4 : A$="PLAYER 4 WINS ï¿½" For A=1 To 3 P=P(A) STD=RNNING(P) If OWN4(STD)=1 and A=1 Then Add PCASH(4),Int(PRIZEMONEY/2) : Locate 30,3 : Print A$+Str$(Int(PRIZEMONEY/2)) : Inc W If OWN4(STD)=1 and A=2 Then Add PCASH(4),Int(PRIZEMONEY/3) : Locate 30,5 : Print A$+Str$(Int(PRIZEMONEY/3)) : Inc W If OWN4(STD)=1 and A=3 Then Add PCASH(4),Int(PRIZEMONEY/5) : Locate 30,7 : Print A$+Str$(Int(PRIZEMONEY/5)) : Inc W Next A YZ4: 'Do LOAN REPAYMENTS If L=1 Colour 3,$30 Ink 5,3 Box 50,160 To 610,205 For A=1 To PLYRS Pen A : Locate 9,20+A : Print "PLAYER ";A;" LOAN REPAYMENT ï¿½";LR(A);" TO PAY (Inc interest) ï¿½";HADLOAN(A) ' If HADLOAN(A)>0 and PCASH(A)>0 Add PCASH(A),-LR(A) : Add HADLOAN(A),-LR(A) End If Next A End If If NOUT=0 Then Goto MAZ While Mouse Key=0 : Wend 'pbet=1 if player 1 has laid a bet ' 'if no players had a bet then pop MAZ: For A=1 To PLYRS If PBET(A)=1 Then PTURN=A : Gosub PPA Next A For A=1 To 4 : HB(A)=0 : SF1(A)=0 : SF2(A)=0 : BTYPE(PTURN)=0 : PSTAKE(PTURN)=0 : RF1(A)=0 : RF2(A)=0 : Next A Pop Proc PPA: Unpack 10 To 0 _MOUSE Paper 0 : Pen 12 PL$="PLAYER "+Str$(A) Centre PL$ WINNINGS=0 : PLC=0 Paper 1 : Pen 2 If BTYPE(PTURN)=1 and PBET(PTURN)=1 Then BET$="ï¿½"+Str$(PSTAKE(PTURN))-" " : Locate 15,10 : Print BET$+" WIN" : ZZ$=HOR$(HB(PTURN)) : Z$=Mid$(ZZ$,8,13) : Locate 14,8 : Print Z$ : Locate 11,26 : Print BET$ : Goto QPXL If BTYPE(PTURN)=2 and PBET(PTURN)=1 BET$="ï¿½"+Str$(PSTAKE(PTURN)/2)-" " : Locate 15,10 : Print BET$+" E/W" : ZZ$=HOR$(HB(PTURN)) : Z$=Mid$(ZZ$,8,13) : Locate 14,8 : Print Z$ : BET$="ï¿½"+Str$(PSTAKE(PTURN))-" " : Locate 11,26 : Print BET$ : Goto QPXL End If If BTYPE(PTURN)=3 and PBET(PTURN)=1 Then BET$="ï¿½"+Str$(PSTAKE(PTURN))-" " : Locate 15,10 : Print BET$+" S/FC" : Locate 14,8 : Print SF1(PTURN);" X";SF2(PTURN) : BET$="ï¿½"+Str$(PSTAKE(PTURN))-" " : Locate 11,26 : Print BET$ : Goto QPXL If BTYPE(PTURN)=4 and PBET(PTURN)=1 Then BET$="ï¿½"+Str$(PSTAKE(PTURN)/2)-" " : Locate 15,10 : Print BET$+" R/FC" : Locate 14,8 : Print RF1(PTURN);" X";RF2(PTURN) : BET$="ï¿½ "+Str$(PSTAKE(PTURN))-"" : Locate 11,26 : Print BET$ : Goto QPXL QPXL: 'do win bet If BTYPE(PTURN)=1 and HB(PTURN)=P(1) 'Print "win " T=P(1) WINNINGS=PSTAKE(PTURN)*ODD(T)+PSTAKE(PTURN) : BET$="ï¿½"+Str$(WINNINGS)-" " : Locate 20,26 : Print BET$ : Add PCASH(PTURN),WINNINGS+PSTAKE(PTURN) : Wait 50 : Bob 1,110,60,17 : Bob Draw : Wait Vbl : Sam Play 2 : Goto CCL End If 'do e/w bet If BTYPE(PTURN)=2 and HB(PTURN)=P(1) T=P(1) WINNINGS=PSTAKE(PTURN)/2 WINNINGS=WINNINGS*ODD(T) : WINNINGS=WINNINGS+PSTAKE(PTURN)/2 'Print "win=";WINNINGS PLC=ODD(T)/4 : Inc PLC PLC=PLC*PSTAKE(PTURN)/2 QQQ=PSTAKE(PTURN)/2 PLC=PLC+QQQ 'Print "plc=";PLC WINNINGS=WINNINGS+PLC BET$="ï¿½"+Str$(WINNINGS)-" " : Locate 20,26 : Print BET$ Add PCASH(PTURN),WINNINGS : Wait 50 Bob 1,110,60,17 : Bob Draw : Wait Vbl : Goto CCL End If 'is it just 2nd with ew bet? If BTYPE(PTURN)=2 and HB(PTURN)=P(2) 'Print "im here 2nd" T=P(2) PLC=ODD(T)/4 : Inc PLC PLC=PLC*PSTAKE(PTURN)/2 QQQ=PSTAKE(PTURN)/2 PLC=PLC+QQQ 'Print "2ndplc=";PLC WINNINGS=PLC BET$="ï¿½"+Str$(PLC)-" " : Locate 20,26 Print BET$ : Add PCASH(PTURN),WINNINGS : Wait 50 Bob 1,110,60,17 : Bob Draw : Wait Vbl : Sam Play 2 : Goto CCL End If 'is it just 3rd with ew bet? If BTYPE(PTURN)=2 and HB(PTURN)=P(3) 'Print "im here3rd" T=P(3) PLC=ODD(T)/4 : Inc PLC PLC=PLC*PSTAKE(PTURN)/2 QQQ=PSTAKE(PTURN)/2 PLC=PLC+QQQ 'Print "3rdplc=";PLC WINNINGS=PLC BET$="ï¿½"+Str$(WINNINGS)-" " : Locate 20,26 Print BET$ : Add PCASH(PTURN),WINNINGS : Wait 50 Bob 1,110,60,17 : Bob Draw : Wait Vbl : Sam Play 2 : Goto CCL End If 'do sfc If BTYPE(PTURN)=3 and SF1(PTURN)=P(1) and(SF2(PTURN)=P(2)) T=P(1) : TT=P(2) WINNINGS=ODD(T)*ODD(TT) WINNINGS=WINNINGS*PSTAKE(PTURN) If WINNINGS<=PSTAKE(PTURN) WINNINGS=WINNINGS+PSTAKE(PTURN) End If BET$="ï¿½"+Str$(WINNINGS)-" " : Locate 20,26 Print BET$ : Add PCASH(PTURN),WINNINGS : Wait 50 Bob 1,110,60,17 : Bob Draw : Wait Vbl : Sam Play 2 : Goto CCL End If 'do rfc GOTFC=0 T=P(1) : TT=P(2) If BTYPE(PTURN)=4 and P(1)=RF1(PTURN) and P(2)=RF2(PTURN) Then GOTFC=1 If BTYPE(PTURN)=4 and P(1)=RF2(PTURN) and P(2)=RF1(PTURN) Then GOTFC=1 If GOTFC=1 WINNINGS=ODD(T)*ODD(TT) WINNINGS=WINNINGS*PSTAKE(PTURN) : WINNINGS=WINNINGS/2 If WINNINGS<=PSTAKE(PTURN) WINNINGS=WINNINGS+PSTAKE(PTURN) End If BET$="ï¿½"+Str$(WINNINGS)-" " : Locate 20,26 Print BET$ : Add PCASH(PTURN),WINNINGS : Wait 50 Bob 1,110,60,17 : Bob Draw : Wait Vbl : Sam Play 2 : Goto CCL End If BBL: Locate 20,26 : Print "ï¿½0" Wait 50 : Bob 1,110,90,18 : Bob Draw : Sam Play 2 : Wait Vbl CCL: While Mouse Key=0 : Wend GOTFC=0 Return End Proc '========================================== 'update and store form Procedure _FORMBOOK Inc RACENUMBER For R=1 To RNNERS W=RNNING(R) If MM(W)>25 Then Pop Proc Inc MM(W) : F=W G: 'x=finishing position in race For A=1 To RNNERS If P(A)=R Then X=A Next A : Gosub STX W$=Mid$(H$(W),38,4) : MM=MM(W) D=DIST(DI) If D<10 Then D$="0"+Str$(D)-" " If D>=10 Then D$=Str$(D)-" " If RACENUMBER>9 Then FOM$(F,MM)="RACE No."+Str$(RACENUMBER)+":"+M$+":"+D$+"F: "+GG$ If RACENUMBER<10 Then FOM$(F,MM)="RACE No."+Str$(RACENUMBER)+" :"+M$+":"+D$+"F: "+GG$ FOM$(F,MM)=FOM$(F,MM)+": DRAW "+Left$(POS$(R),1)+" : "+W$+" :"+Str$(ODD(R))+"/1" FOM$(F,MM)=FOM$(F,MM)+": "+JA$+" OF"+Str$(RNNERS)+": "+J$(R) Next R Pop Proc STX: If X=1 Then JA$="1st" If X=2 Then JA$="2nd" If X=3 Then JA$="3rd" If X=4 Then JA$="4th" If X=5 Then JA$="5th" If X=6 Then JA$="6th" If X=7 Then JA$="7th" If X=8 Then JA$="8th" Return End Proc '========================================== 'show previous races.max 15 Procedure _BOOK 'Limit Mouse Pen 12 : Paper 0 : Locate 0,23 : Centre "CLICK ON NAME OF HORSE TO VIEW" : Flash 12,"(2a4,10)(f16,10)" Reserve Zone Reserve Zone 8 Set Zone 1,44,62 To 562,71 Set Zone 2,44,78 To 562,87 Set Zone 3,44,92 To 562,103 Set Zone 4,44,111 To 562,119 Set Zone 5,44,125 To 562,135 Set Zone 6,44,142 To 562,150 Set Zone 7,44,157 To 562,167 Set Zone 8,44,174 To 562,183 Do RAYMONDO: K=Mouse Zone While Mouse Key=0 : Wend If K>RNNERS or K=0 Then Goto RAYMONDO Gosub GREG Loop GREG: Flash Off Hide : Cls 0 'Unpack 2 To 0 _MOUSE J=RNNING(K) If MM(J)=0 Then Text Screen Width/2-(20*8/2),99,"NO RUNS THIS SEASON" : While Mouse Key=0 : Wend : Cls 0 : Pop Proc A$=HOR$(K) B$=Left$(A$,20) BB$=Mid$(A$,38,4) OO$=Right$(A$,4) D=DIST(DI) D$=Str$(D)-" " Ink 7,4 : NOW$=B$+" "+M$+" "+D$+" F "+GG$+" "+V$+" "+BB$+" "+OO$+" "+J$(K) : LA=Len(NOW$) : Text Screen Width/2-(LA*8/2),8,NOW$ : Inverse Off HH=19 Ink 1,2 For A=1 To 25 : AX=Len(FOM$(J,A)) Text 12,HH,FOM$(J,A) : Add HH,16 : Next A While Mouse Key=0 : Wend Cls 0 End Proc '========================================== 'inc meeting Procedure _MEET 'Screen Open 0,320,250,8,Lowres 'Curs Off : Flash Off : Hide On : Cls 0 Load Iff "punter_files/new.iff",0 Paper 7 : Pen 0 : M$=MEETING$(MEET) Locate 26,12 : Print "NEXT MEETING: "+M$ 'Ink 5,3 : Box 0,35 To 319,90 'Pen 4 'Colour 1,$339 : Colour 2,$612 : Colour 3,$30 : Colour 4,$656 Pen 3 For A=1 To PLYRS Locate 26,A+13 : Print "PLAYER"+Str$(A)+" CASH: ï¿½"+Str$(PCASH(A))-" " Next A While Mouse Key=0 : Wend End Proc '========================================== Procedure _NEWSEASON Cls 0 Load Iff "punter_files/new.iff",0 Paper 7 : Pen 0 Locate 26,12 : Print "S E A S O N "+Str$(SEASON) GIVEN=0 : Rem reset deadcert chance If GAMETYPE=4 and SEASON>=11 Then Goto GOV While Mouse Key=0 : Wend Pop Proc GOV: JUSTCHECKING=1 : _SELL Locate 26,12 : Centre "G A M E O V E R" 'this is for gametype 4 P1TOT=PCASH(1)+P1STOCK P2TOT=PCASH(2)+P2STOCK P3TOT=PCASH(3)+P3STOCK P4TOT=PCASH(4)+P4STOCK If P1TOT>P2TOT and P1TOT>P3TOT and(P1TOT>P4TOT) Then WINNER=1 If P2TOT>P1TOT and P2TOT>P3TOT and(P2TOT>P4TOT) Then WINNER=2 If P3TOT>P1TOT and P3TOT>P2TOT and(P3TOT>P4TOT) Then WINNER=3 If P4TOT>P1TOT and P4TOT>P2TOT and(P4TOT>P3TOT) Then WINNER=4 DDL: 'draw If P1TOT=P2TOT Then D1=1 : D2=2 If P1TOT=P3TOT Then D1=1 : D2=3 If P1TOT=P4TOT Then D1=1 : D2=4 If P2TOT=P3TOT Then D1=2 : D2=3 If P2TOT=P4TOT Then D1=2 : D2=4 If P3TOT=P4TOT Then D1=3 : D2=4 'the winning screen If WINNER=0 Then Locate 26,14 : Print "IT'S A DRAW" If WINNER>0 Then Locate 26,14 : Print "THE WINNER IS PLAYER "+Str$(WINNER)-" " Locate 26,15 : Under On : Print "TOTAL CASH AND STOCK VALUE" : Under Off Locate 26,16 : Print "PLAYER 1: ï¿½";P1TOT Locate 26,27 : Print "PLAYER 2: ï¿½";P2TOT If PLYRS>=3 Then Locate 26,18 : Print "PLAYER 3: ï¿½";P3TOT If PLYRS>=4 Then Locate 26,19 : Print "PLAYER 4: ï¿½";P4TOT Wait 100 While Mouse Key=0 : Wend QUIT=1 Pop Proc End Proc '========================================== Procedure _JOCKEYS FRAS: Limit Mouse Screen Open 0,640,255,8,Hires Flash Off : Curs Off : Paper 0 : Cls 0 : Show On _MOUSE Colour 6,$FF0 Colour 1,$77 Reserve Zone 26 Pen 2 : Print : Print " JOCKEY INFO RIDES WINS RACE SEASON STATUS" Draw 0,18 To 640,18 Pen 7 For A=1 To 9 Gosub FEE J$=JOCK$(A) : Pen 1 : Locate 0,A+2 : Print Zone$(J$,A) Locate 26,A+2 : Print JRIDE(A) : Locate 34,A+2 : Print JWINS(A) : Locate 41,A+2 : Print "ï¿½";CR : Locate 50,A+2 : Print "ï¿½";SR Gosub APA Next A For A=10 To 25 Gosub FEE Pen 1 : J$=JOCK$(A) : Locate 0,A+2 : Print Zone$(J$,A) Locate 26,A+2 : Print JRIDE(A) Locate 34,A+2 : Print JWINS(A) Locate 41,A+2 : Print "ï¿½";CR Locate 50,A+2 : Print "ï¿½";SR Gosub APA Pen 7 Next A Flash 3,"(fff,5)(222,5)" Locate 74,1 : Pen 3 : Print Zone$("EXIT",26) 'Draw 150,20 To 150,240 Draw 185,20 To 185,230 Draw 255,20 To 255,230 Draw 315,20 To 315,230 Draw 385,20 To 385,230 Draw 480,20 To 480,230 Draw 0,230 To 640,230 Pen 6 GGL: Clear Key Do TT: Locate 0,29 : Print "CLICK ON A JOCKEYS NAME TO SELECT " K=0 While Mouse Key=0 : Wend K=Mouse Zone If K=26 Then Pop Proc If K>0 and K<26 and(JR(K)=0) Then Locate 0,29 : Print "HIRE FOR RACE - SEASON OR CANCEL PRESS R S OR C " : Goto HIRE If K>0 and K<26 and(JR(K)=1) or(JR(K)=2) Then Locate 0,29 : Print "ALREADY RIDING IN THIS RACE " : Wait 100 : Locate 0,29 : Print Space$(79) : Goto TT Loop Pop Proc HIRE: A$="" K$="" : While K$="" : K$=Inkey$ : Wend K$=Upper$(K$) A=K : Gosub FEE If RETAINER(PTURN)>0 Then A$="YOU CAN ONLY USE YOUR RETAINER! " : Goto RAL If PCASH(PTURN)<CR Then Locate 0,29 : Print "YOU CAN'T AFFORD IT! " : Wait 100 : Locate 0,29 : Print Space$(79) : Goto GGL If K$="R" and PTURN=1 and(P1GJ=1) Then Gosub GJ : Goto GGL If K$="R" and PTURN=2 and(P2GJ=1) Then Gosub GJ : Goto GGL If K$="R" and PTURN=3 and(P3GJ=1) Then Gosub GJ : Goto GGL If K$="R" and PTURN=4 and(P4GJ=1) Then Gosub GJ : Goto GGL If K$="R" and PTURN=1 and(P1HR=0) Then Gosub PRW : Goto GGL If K$="R" and PTURN=2 and(P2HR=0) Then Gosub PRW : Goto GGL If K$="R" and PTURN=3 and(P3HR=0) Then Gosub PRW : Goto GGL If K$="R" and PTURN=4 and(P4HR=0) Then Gosub PRW : Goto GGL If K$="R" Then A$="HIRED FOR RACE" : JR(K)=1 : Gosub INJ If K$="S" and PCASH(PTURN)<SR Then Locate 0,29 : Print "YOU CAN'T AFFORD IT! " : Wait 100 : Locate 0,29 : Print Space$(79) : Goto GGL If K$="S" Then A$="HIRED FOR SEASON" : JR(K)=2 : Gosub RT If K$="C" Then A$="" Locate 0,29 : Print Space$(79) If A$="" Then Goto GGL RAL: Locate 0,29 : Print A$ : Wait 150 : Goto FRAS Goto GGL GJ: Locate 0,29 : Print "NO MORE JOCKEYS INTERESTED " : Wait 50 : Goto FRAS Return RT: If PTURN=1 and RETAINER(1)=0 Then RETAINER(1)=K : Add PCASH(1),-SR : Return If PTURN=1 and RETAINER(1)>0 Then Gosub GREEDY If PTURN=2 and RETAINER(2)=0 Then RETAINER(2)=K : Add PCASH(2),-SR : Return If PTURN=2 and RETAINER(2)>0 Then Gosub GREEDY If PTURN=3 and RETAINER(3)=0 Then RETAINER(3)=K : Add PCASH(3),-SR : Return If PTURN=3 and RETAINER(3)>0 Then Gosub GREEDY If PTURN=4 and RETAINER(4)=0 Then RETAINER(4)=K : Add PCASH(4),-SR : Return If PTURN=4 and RETAINER(4)>0 Then Gosub GREEDY Return GREEDY: Locate 0,29 : Print "ONLY ONE RETAINER A SEASON ALLOWED! " : A$="" : Wait 100 : Return FEE: CR=50*JWINS(A) : FFP=JRIDE(A) : CR=CR-FFP*5 : If CR<50 Then CR=50 SR=CR*400 Return PRW: Locate 0,29 : Print "YOU DON'T HAVE A RUNNER IN THE NEXT RACE! " Wait 100 : Locate 0,29 : Print Space$(79) Return INJ: 'insert jockey 'find For A=1 To RNNERS GG=RNNING(A) If PTURN=1 and P1RP=A Then HOR=A : Add PCASH(1),-CR : P1GJ=1 If PTURN=2 and P2RP=A Then HOR=A : Add PCASH(2),-CR : P2GJ=1 If PTURN=3 and P3RP=A Then HOR=A : Add PCASH(3),-CR : P3GJ=1 If PTURN=4 and P4RP=A Then HOR=A : Add PCASH(4),-CR : P4GJ=1 Next A 'look at orig jock U$=HOR$(HOR) O$=Mid$(U$,46,52) For A=1 To 25 F=Instr(O$,JOCK$(A)) If F<>0 Then OG=A Next A JR(OG)=0 'insert T$=HOR$(HOR) Mid$(T$,46,57)=JOCK$(K) HOR$(HOR)=T$ JR(K)=1 Return APA: If JR(A)=1 Then Pen 4 : Locate 62,A+2 : Print "UNAVAILABLE" If RETAINER(1)=A Then Pen 6 : Locate 62,A+2 : Print "RETAINED BY P1" : Return If RETAINER(2)=A Then Pen 6 : Locate 62,A+2 : Print "RETAINED BY P2" : Return If RETAINER(3)=A Then Pen 6 : Locate 62,A+2 : Print "RETAINED BY P3" : Return If RETAINER(4)=A Then Pen 6 : Locate 62,A+2 : Print "RETAINED BY P4" : Return If JR(A)=0 Then Pen 5 : Locate 62,A+2 : Print "AVAILABLE" Return End Proc '========================================== 'replace jock with retained jock if applic Procedure _USERETAINER 'If PTURN=1 KK=RETAINER(1) If KK=0 Then Goto XQP TT$=HOR$(P1RP) Mid$(TT$,46,57)=JOCK$(KK) HOR$(P1RP)=TT$ 'End If XQP: 'If PTURN=2 KK=RETAINER(2) If KK=0 Then Goto CZ TT$=HOR$(P2RP) Mid$(TT$,46,57)=JOCK$(KK) HOR$(P2RP)=TT$ 'End If CZ: 'If PTURN=3 KK=RETAINER(3) If KK=0 Then Goto RAR TT$=HOR$(P3RP) Mid$(TT$,46,57)=JOCK$(KK) HOR$(P3RP)=TT$ 'End If RAR: 'If PTURN=4 KK=RETAINER(4) If KK=0 Then Pop Proc TT$=HOR$(P4RP) Mid$(TT$,46,57)=JOCK$(KK) HOR$(P4RP)=TT$ 'End If End Proc '========================================== 'change mouse pointer colours Procedure _MOUSE Colour 17,$30 Colour 18,$30 Colour 19,$0 End Proc '========================================== 'save current game variables Procedure _SAVE Screen Hide 0 Load "punter_files/saving.abk",3 Screen Open 4,320,256,4,Lowres : Flash Off : Curs Off : Cls 0 Unpack 3 To 4 Paper 0 : Pen 1 'Centre "PLEASE MAKE SURE PUNTER DISK IS IN DF0:" Locate 0,24 : Centre "CLICK MOUSE TO SAVE OR SPACE TO CANCEL" Do M=Mouse Key If M=1 Then Goto SA If Inkey$<>"" Then Screen Close 4 : Pop Proc Loop SA: Locate 0,24 : Cline Home : Cline Dir$=_DIR$ F$=Fsel$("","","TYPE FILENAME & PRESS RETURN") If F$="" Then Screen Close 4 : Pop Proc Paper 0 : Pen 4 Open Out 1,F$ P=2683 For A=1 To 4 Print #1,BTYPE(A) Print #1,RETAINER(A) Print #1,HADLOAN(A) Print #1,LR(A) Print #1,SF1(A) Print #1,SF2(A) Print #1,RF1(A) Print #1,RF2(A) Print #1,HB(A) Print #1,BUP(A) Print #1,PCASH(A) Print #1,PBET(A) Print #1,PSTAKE(A) Dec P : Locate 17,21 : Print P;" " Next A For A=1 To 8 Print #1,J$(A) Print #1,POS$(A) Print #1,RATING(A) Print #1,BESTCOURSE(A) Print #1,BESTDIST(A) Print #1,BESTGOING(A) Print #1,ODD(A) Print #1,HOR$(A) Print #1,DIST(A) Print #1,RNNING(A) Print #1,P(A) Print #1,PTS(A) Print #1,IRO(A) Print #1,XB(A) Print #1,LTHS(A) Dec P : Locate 17,21 : Print P;" " Next A For B=1 To 25 For A=1 To 100 Print #1,FOM$(A,B) Dec P : Locate 17,21 : Print P;" " Next A Next B For A=1 To 100 Print #1,RNS(A) Print #1,OWN1(A) Print #1,OWN2(A) Print #1,OWN3(A) Print #1,OWN4(A) Print #1,MM(A) Print #1,RATMET(A) Print #1,PM(A) Print #1,WINS(A) Print #1,HORSE$(A) Print #1,H$(A) Print #1,AGE(A) Print #1,HCHAR$(A) Print #1,FFIG$(A) Print #1,WEIGHT$(A) Dec P : Locate 17,21 : Print P;" " Next A For A=1 To 25 Print #1,JTEMP(A) Print #1,JOCK$(A) Print #1,JR(A) Print #1,JRIDE(A) Print #1,JWINS(A) Print #1,JJJ(A) Print #1,HLIST(A) Print #1,VU(A) Print #1,TRAINER$(A) Dec P : Locate 17,21 : Print P;" " Next A For A=1 To 15 Print #1,DRW$(A) Print #1,MEETING$(A) Dec P : Locate 17,21 : Print P;" " Next A For A=1 To 5 Print #1,GOING$(A) Next A For A=1 To 6 Print #1,Z$(A) Next A For A=1 To 27 Print #1,SLIST(A) Dec P : Locate 17,21 : Print P;" " Next A Print #1,M$ Print #1,GG$ Print #1,DIFF Print #1,RNNERS Print #1,DAW$ Print #1,WINPART Print #1,PLPART Print #1,RACE Print #1,D$ Dec P : Locate 17,21 : Print P;" " Print #1,GO Print #1,MEET Print #1,GOING Print #1,PRIZEMONEY Print #1,PTURN Print #1,PLYRS Print #1,PB$ Print #1,PB2$ Print #1,PB3$ Print #1,HCOUNT Print #1,FIRSTLOOK Print #1,HORSESFORSALE Print #1,HFS Dec P : Locate 17,21 : Print P;" " Print #1,P1OWNS Print #1,P2OWNS Print #1,P3OWNS Print #1,P4OWNS Print #1,P1HR Print #1,P2HR Print #1,P3HR Print #1,P4HR Print #1,FCOUNT Print #1,DI Print #1,P1RP Print #1,P2RP Print #1,P3RP Dec P : Locate 17,21 : Print P;" " Print #1,P4RP Print #1,P1GJ Print #1,P2GJ Print #1,P3GJ Print #1,P4GJ Print #1,GAMETYPE Print #1,WINNER Print #1,P1STOCK Print #1,P2STOCK Print #1,P3STOCK Print #1,P4STOCK Print #1,JUSTCHECKING Print #1,P1DEAD Print #1,P2DEAD Print #1,P3DEAD Print #1,P4DEAD Print #1,M1 Print #1,M2 Print #1,M3 Print #1,M4 Print #1,REALPLAYERS Print #1,SEASON Print #1,QUIT Print #1,FCOUNT Print #1,MEN Print #1,HORSESFORSALE Print #1,MEET Print #1,RACE Print #1,RACENUMBER Dec P : Locate 17,21 : Print P;" " Erase 3 Fade 20 Wait 50 Screen Close 4 Close 1 Screen Show 0 'Dir$=OLDIR$ End Proc '=========================================== 'load saved game Procedure _LOAD Cls 0 : Screen Hide 0 Load "punter_files/loading.abk",3 Screen Open 4,320,256,4,Lowres : Flash Off : Curs Off : Cls 0 Unpack 3 To 4 Paper 0 : Pen 1 ' 'If Not Exist("punter_files/PUNTER_SAVED_GAME") ' Cls 0 : Home : Centre "NO SAVED GAME PRESENT" ' While Mouse Key=0 : Wend : Cls 0 : Pop Proc 'End If ' 'Centre "PLEASE MAKE SURE PUNTER DISK IS IN DF0:" Locate 0,24 : Centre "CLICK MOUSE TO LOAD OR SPACE TO CANCEL" Do M=Mouse Key If M=1 Then Goto LA If Inkey$<>"" Then Screen Close 4 : Pop Proc Loop LA: Locate 0,24 : Cline Home : Cline 'OLDIR$=Dir$ Dir$=_DIR$ F$=Fsel$("","","SELECT GAME OR QUIT") If F$="" Then Screen Close 4 : Pop Proc P=2683 Open In 1,F$ For A=1 To 4 Input #1,BTYPE(A) Input #1,RETAINER(A) Input #1,HADLOAN(A) Input #1,LR(A) Input #1,SF1(A) Input #1,SF2(A) Input #1,RF1(A) Input #1,RF2(A) Input #1,HB(A) Input #1,BUP(A) Input #1,PCASH(A) Input #1,PBET(A) Input #1,PSTAKE(A) Dec P : Locate 17,21 : Print P;" " Next A For A=1 To 8 Input #1,J$(A) Input #1,POS$(A) Input #1,RATING(A) Input #1,BESTCOURSE(A) Input #1,BESTDIST(A) Input #1,BESTGOING(A) Input #1,ODD(A) Input #1,HOR$(A) Input #1,DIST(A) Input #1,RNNING(A) Input #1,P(A) Input #1,PTS(A) Input #1,IRO(A) Input #1,XB(A) Input #1,LTHS(A) Dec P : Locate 17,21 : Print P;" " Next A For B=1 To 25 For A=1 To 100 Input #1,FOM$(A,B) Dec P : Locate 17,21 : Print P;" " Next A Next B For A=1 To 100 Input #1,RNS(A) Input #1,OWN1(A) Input #1,OWN2(A) Input #1,OWN3(A) Input #1,OWN4(A) Input #1,MM(A) Input #1,RATMET(A) Input #1,PM(A) Input #1,WINS(A) Input #1,HORSE$(A) Input #1,H$(A) Input #1,AGE(A) Input #1,HCHAR$(A) Input #1,FFIG$(A) Input #1,WEIGHT$(A) Dec P : Locate 17,21 : Print P;" " Next A For A=1 To 25 Input #1,JTEMP(A) Input #1,JOCK$(A) Input #1,JR(A) Input #1,JRIDE(A) Input #1,JWINS(A) Input #1,JJJ(A) Input #1,HLIST(A) Input #1,VU(A) Input #1,TRAINER$(A) Dec P : Locate 17,21 : Print P;" " Next A For A=1 To 15 Input #1,DRW$(A) Input #1,MEETING$(A) Dec P : Locate 17,21 : Print P;" " Next A For A=1 To 5 Input #1,GOING$(A) Next A For A=1 To 6 Input #1,Z$(A) Next A For A=1 To 27 Input #1,SLIST(A) Dec P : Locate 17,21 : Print P;" " Next A Input #1,M$ Input #1,GG$ Input #1,DIFF Input #1,RNNERS Input #1,DAW$ Input #1,WINPART Input #1,PLPART Input #1,RACE Input #1,D$ Input #1,GO Input #1,MEET Input #1,GOING Input #1,PRIZEMONEY Input #1,PTURN Input #1,PLYRS Input #1,PB$ Input #1,PB2$ Input #1,PB3$ Input #1,HCOUNT Input #1,FIRSTLOOK Input #1,HORSESFORSALE Input #1,HFS Input #1,P1OWNS Input #1,P2OWNS Input #1,P3OWNS Dec P : Locate 17,21 : Print P;" " Input #1,P4OWNS Input #1,P1HR Input #1,P2HR Input #1,P3HR Input #1,P4HR Input #1,FCOUNT Input #1,DI Input #1,P1RP Input #1,P2RP Input #1,P3RP Input #1,P4RP Input #1,P1GJ Input #1,P2GJ Input #1,P3GJ Input #1,P4GJ Input #1,GAMETYPE Input #1,WINNER Input #1,P1STOCK Input #1,P2STOCK Input #1,P3STOCK Dec P : Locate 17,21 : Print P;" " Input #1,P4STOCK Input #1,JUSTCHECKING Input #1,P1DEAD Input #1,P2DEAD Input #1,P3DEAD Input #1,P4DEAD Input #1,M1 Input #1,M2 Input #1,M3 Input #1,M4 Input #1,REALPLAYERS Dec P : Locate 17,21 : Print P;" " Input #1,SEASON Input #1,QUIT Input #1,FCOUNT Input #1,MEN Input #1,HORSESFORSALE Input #1,MEET Input #1,RACE Input #1,RACENUMBER Dec P : Locate 17,21 : Print P;" " Wait 15 Erase 3 Fade 20 Wait 50 Screen Close 4 Close 1 Screen Show 0 'Dir$=OLDIR$ End Proc '=========================================== Procedure _CHECKFILES Dir$=_DIR$ MF=0 M$="IS MISSING OR HAS BEEN TAMPERED WITH!" A$="punter.doc" If Not Exist(A$) Then MF=1 : Goto BOLLOCKER A$="punter_files/gallop.abk" If Not Exist(A$) Then MF=1 : Goto BOLLOCKER A$="punter_files/key.iff" If Not Exist(A$) Then MF=1 : Goto BOLLOCKER A$="punter_files/loading.abk" If Not Exist(A$) Then MF=1 : Goto BOLLOCKER A$="punter_files/mod.punter" If Not Exist(A$) Then MF=1 : Goto BOLLOCKER A$="punter_files/samples.abk" If Not Exist(A$) Then MF=1 : Goto BOLLOCKER A$="punter_files/select.abk" If Not Exist(A$) Then MF=1 : Goto BOLLOCKER A$="punter_files/saving.abk" If Not Exist(A$) Then MF=1 : Goto BOLLOCKER A$="punter_files/track_bot.abk" If Not Exist(A$) Then MF=1 ' ' BOLLOCKER: If MF=1 Unpack 2 To 0 : Paper 0 : Locate 0,26 : Centre A$ Print : Centre M$ : Clear Key : Wait Key : Load "you bastard" End If End Proc '========================================================================= ' THE VARIABLES ' --------------- ' Note:These are just the major vars used '========================================================================== 'DIMENSIONED ARRAYS= '=================== 'AGE(100) =Age of each horse starts at 4,5 or 6 year old 'BESTCOURSE(8)=Favoured course by each horse in current race 'BETDIST(8) =Favoured distance by each horse in current race 'BESTGOING(8) =Favoured going by each horse in current race 'BTYPE(4) =Bet type made by current player (pturn) 1=win 2=e/w 3=sfc 4=rfc 'BUP(4) =Temporary storage of current players cash in case cancel bet 'DRW$(15) =Draw advantage Ie. LOW or HIGH etc. 'DIST(8) =Holds the 8 different race distances: 5F,6F,7F,8F,10F,12F,14F,16F 'FFIGS$(100) =Last six form figs of each horse ie: 00012L (L=last) 'FOM$(100,25) =Store race details of last 25 races of each horse, 2500 'GOING$(5) =Going HEAVY,SOFT,GOOD,FIRM and HARD 'Hor$(8) =for current race: 000000 NAME TRAINER AGE WEIGHT JOCKEY ODDS 'H$(100) =000000 NAME TRAINER AGE WEIGHT 'HLIST(25) =Current horses for sale 'HB(4) =HB(pturn) =1 if player pturn has had any sort of bet, 0 otherwise 'HCHAR$(100) =Charachteristic of each horse eg: "C05D05G01"C=Course no.05 favoured,Disance no.05,Going 01. 'HORSE$(100) =The original 100 names of the horses. 'IRO(8) =Used as a new variable to tweak odds to run race so not exactly run to odds 'JOCK$(25) =The 25 jockeys names. 'J$(8) =Store the jockeys names for current race. 'JR(25) =equals 1 if jockey riding in current race 'JRIDE(25) =Amount of rides each jockey has had 'JWINS(25) -Amount of wins each jockey has had 'LTHS(8) =Dist between each horses finishing position for photo purposes. 'MEETING$(15) =The 15 course names. 'MM(100) = Races run so far??????????/ see RNS() 'ODD(8) =IDIVIDUALS ODDS OF EACH HORSE FOR THE CURRENT RACE ONLY. 'OWN1(100) =If equal 1 then player 1 owns horse 'OWN2(100) = 2 'OWN3(100) = 3 'OWN4(100) = 4 'PCASH(4) =Current players cash, PCASH(PTURN)= 'PM(100) =Prize money won counter for each of the hundred horses 'PBET(4) =If =1 then player 1 has had a bet if 2 etc. 'P(8) =Finishing position of horses after race p(1)=number of horse come first etc. 'PSTAKE(4) =How nmuch staked by each player on current bet 'POS$(8) =Just a way of printing 1st, 2nd, 3rd etc. up to 8th for race result screen. 'PTS(8) =A points sytem used to weigh up a horses chance in a race according to course/dist/weight/odds etc. 'RATMET(100) =Makes sure same horse doesnt run twice at one meeting in the same week=1 if already raced at that meeting. 'RATING(8) =Used by form man to rate a horses chance. 'RNS(100) =Total races run in during whole game by each horse 'RNNING(8) =How many horses (4 to 8) are running in current race 'RF1(4) =same as SF1 but applies to Reversed forcast 'RF2(4) =Ditto 'SF1(4) =If had a sfc bet SF1(pturn) gives horse chossen to come first 'SF2(4) =As above but this holds the horse to comesecond 'SLIST(25) =Storage list of current horses for sale 'TRAINER$(25) =The names of the 25 trainers. 'TEMP(25) =Used to temporary hold some variables during rnd selection 'USERETAINER(4=If player has retained a jockey for the season 'VU(25) =Value of a horse for sale 'WEIGHT$(100) =The weight of each horse. 'WINS(100) =Races won by each horse counter 'XB(8) =Used in calculations with LTHS to work out photo after race. 'Z$(6) =Used in form figures calculations. '------------------------------------------------------------------------------------ 'Some OF The OTHER VARS= '------------------------ 'D$ =Used in inserting a new form figure 'DAW$ =Temp hold the current draw advantage for the meeting. 'DI =Holds the curent distance of race. DIST(DI) 'DIFF =Difficulty level 1-3 EASY NORMAL PRO 'ERR =If=1 then error of some sort, used in various routines 'FCOUNT =Used in calculations for selecting a horse for sale. 'FIRSTLOOK =Is it first time player has looked at horses for sale? 'GO =????? 'GOIN =Rnd going 1-4 GOING$(GOIN) 'GG$ =Holds current going GG$=GOING$(GOIN) 'HCOUNT =Current horses left to sell this time 'HORSESFORSALE=Total of all horses left for sale 'HFS =Current amount of horses for sale 'HFOS =Current amount of horses for sale 'M$ =M$=Meeting$(MEET) current meeting 'MEN =Menu pointer 1= menu 1 etc. on racecard 'MEET =Counter to see what meeting it is meeting$(meet) 'MEETING =not used 'p1OWNS =How many horses player 1 owns, max 24 'P2OWNS = 2 'P3OWNS = 3 'P4OWNS = 4 'P1HR =Does player 1 have a runner in this race? 'P2HR = 2 'P3HR = 3 'P4HR = 4 'PB$ =Get type of bet and stake and put in PB$ 'PB2$ =Get horse number 'PB3$ =Horse name 'PLPART =Total of place part of winning E/W bet 'PLYRS =Amount of Players in game 1-4 'PTURN =What players turn it currently is 1-4 'PRIZEMONEY =total of prizemoney for current race 'QUIT =If 1 then then player selected quit game 'RACE =Race count up to 6 for a meeting then loop to 1 'RACENUMBER =Total number of ALL races run during game 'RNNERS =Total runners in current race 4-8 'SEASON =Season counter 'STKE =not used 'WINPART =Win part of a succesful E/W bet '=============================================================================